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INTRODUCTION 


This document descrioes the syntax and operating instructicns for 
the second generation 81000 system development language» SODL2. 
Appendix A documents the corresponding user programming tLanguage» 
UPL2- Appandix @ documents the differences oetween SOL and SOL2. 


RELATED QOCUMENTATION 


NAME NUMBER 
S0L2 SMACHINE 2223 3563 
ISSA 2233 2845 
MCP COMMUNICATES AND STRUCTURES 2223 3659 
MCP CONTROL SYNTAX 2228 3501 


31icoo MCPII 2212 5442 
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SOL2 LANGUAGE 
The SOL2 tanguage is described with syntax diagrams. 


A syntax diagram consists of a main Line which contains all 
required elements of the syntax. The nain line may have other 
lines 34a90ve and below ite Lines above the aain line itrdicate 
loops back in the Syntax» and lines below the main line irdicate 
alternate productions. Continuation fron one Line of a diagram 
to another is represented oy a right arrows ">"> at the end of 
the current Line and tne o@ginning of the next line. 4 cemplat2 
syntax diagram is terminated by a vertical bars "1". 


If an element appears on the main Line of the syntax diagram with 
no lines below its then that element is required. If an element 
appears on the main tine of the diagram but other elements appesr 


in tines directly below iit» then one of those elements is 
required. Tf an element aopears in a line oelow the main tine 
and the main Line abcve it 45S empty» then the element is 


optional. 


Elements which are in uppercase» or are speciai characters» are 
terminal symbols and must appear tlitsraily in the final 
production. Lowercase elements reference a syntax diagram of 
that name. 


Examples 
| <oreeecenen| 
j { 
com ses A ceserrens 9 se see es sseere fo erent t ces w wanes nn earenn| 
| { j j 
fer- 1 2-0] Jerr C eee] 
| ! i i 
j=-- 2 <9] b-"- Do os°] 
H I 1 ! 
Je== 3 w22] [ses = = 4 
where 
AQa is valida 
A133 is valid 
A2S33c is valid 


49 1s Invalid 


11/95/82 | 22 


BURROUGHS CORPORATION COMPANY CONFICENTIAL 
COMPUTER SYSTENS GROUP B1¢00 SOL2 COMPILER 
SANTA SBARSARA PLANT _ PeSe 2228 35193) 
TOKENS 

SOL2 recognizes the following token types? identifiers» adit 
strings» fixed number Ss» character strings» and special 


characterse 


Comments are allowed anywhere in the input stream» except within 
quoted strings. There are two forms of comments. The first forn 
degins with a 2% and terminates with the and of tnat tine. Tha 
sscond form begins with /* and terminates with */e 4 comment 
enclosed in /* */ may span multipole Lines. 


dlanks» special cnaracterse comnentss and endwofetlines ere all 
treated as separators» and so cannot be emoedded within a tokene 


‘Identifiers 


An SOL2 identifier may contain a maximum of 72 characters. Valid 
characters include uoperscase letters (Aw2)» tewer-case letters 
Carez)» numerais (0“9)» and the underscore (_)- Identifiers must 
begin witn a letter» and are casesensitive. 


Exampie: 
THIS _ TOKEN 
A1t9) : 
XYZ 


A string consisting entirely of numerals» without any Dracketing 
characters» is treated as a fixed nunber. 


Examoleas: 
12365 
499 


Character 3tcings 


Charactar strings are oracketed by the doudte quots chéracter 
CC"). If a uote is desira2d within a quoted string» then two 
quotes ("") must be used. 


examples: 
"ASCDEF™ 
"KEYWORD P"THEN"" TS QUT OF CONTEXT" 
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git Strings 


sit strings are bracketed oy the amoersand character (23). The 
string may 56e either binary» quartals» octal» or haxadecinili, 
where thea number of kits per digit is specified within 


parenthesese The default is hexadecimal (4 bits per digit). 


Examolea: 
a AFF a 
aCLIVLIIDDa 
a€02)0122¢ 


seecial Characters 


SDL2 recognizes the fotltowing speciat characters. 


& e , < a # 
$ + > - ‘4 
€ = * [ 
} = / ] 


wee GS Oe 


STRUCTURE QF AN SDL2 PROGRAM 


an eewnweeaeaanwea ae Declarations sean nanan a Body sues amen entaacae | 


The structure of an SDL2 program must follcw the seauence 
descrioed in the syntax graphs. Ali variadless» files» defings 
and data types must be declared pefore tne scrocedures» and all 
procedures must 62 dectared cafore the main executable pert of 
the program C8o0dy). 


Program execution begins with the first statament in the progran 
sodye 
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DECLARATIONS 

QECLARATIONS 


] Ce ewan nese oan an snen ween eoneawsaseeaa | 


eee ye ee eT eT ee eT ET eT CEE TTT eT CE TC TE eC eT 

| I 

== Cefine Declaration. “<«s"erse= 3 “=I 

jee File Declaration seesdeeee, 

ee Switch File Dectaration a 

i-- Constant Declaration sides 

fae Type Declaration paeoaueee 
ae Record Declaration ane 
== Sah Deouaeeeien Peer 
— Variable Declaration a 


| 1 
1 t 
j-"- Procedure Decleration c7777 Ff =] 


All identifiers must be declared before they can 62 referenced, 
except within the define text of a define declaration where thay, 
must oe declared before the expansion of tne define. 


acapne of an Identifier 


For global declarations» the scope of an identifier is atl the 
“guoseqcuent declarationse nested oroceduress» and the main cody of 
the programs except for any nested procedures» that dectare 
another version of tha identifier. 


For a declaration within a procaduree the scope of an identifier 
1s that procedure and any nested procedures» except for any that 
declare another version cf the identifier. 


3-2 
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Restrictions 


File Declarations and Switch File Declarations are allowed only 
at the global LlLevet (Cilexic level 0). 


Intrinsicss Separate Units» and Independent Units may not declare 
any Files» Switch Files» or Variables at the global tevel. They 
may» howeverse decitare global Defines» Constants» Types» Records», 


and SetsSe 


11/05/82 3573 


BURROUGHS CORPORATION COMPANY CONFICENTIAL 
COMPUTER SYSTEMS GROUP Bicoo SOL2 COMPILER 
SANTA BARSARA PLANT PeSe 2228 3319(€8) 


DEFINE DECLARATION 


i J 
wee DEFINE e-* Define Head =" AS =" # ** Define Text == # 22-1] 


Define Head 


a) Identifier aseseuves see eee a awee ee ewean ees ae nwes ase casa eeea = |{ 


{ | 
t--)06©6¢ClCl te Define Parameter List *- ) ==] 


Qefine Parameter List 


[<eecs ee > san oamanwa | 


a Bn nn eaaum Identifier ecu sens east een eas esses as esn sence eaaneae | 


The Define Ceclaration allows a string of text to be allocated an 


identifier. Whenever this identifier is ancountered in the 
source program it is replaced by the text Cexcept in a define 
declaration). Define expansion is also turned off when thea 


compiler is expecting an identifier in any of the following: 
Declaration Identifiers» Define [dentifier» Procedure Identifier» 
Formal Parameter Identifier» Do Group Identifier. 


A define declaration may have parameters. ahen the defire text 
is invoked there must be a text string for every parameter. This 
string wiltt replace ait occurrences of the define farameter 
identifier in the define text. Parameters containing commas 
which are not enclosed in parentheses» or parameters containing 
mismatched parentheses» must be enclosed in pecund signs (#). 


Defines are inctuded in SDL2 to ease the conversion fron SCLe In 


most cases defines can de replaced oy Type and Censtant 
Statements» resulting in faster compilation speeds. 


Example: 


DEFINE | 
ARRAY_SIZE AS #1024%> 


MAX (X*Y¥) AS # IF X > Y THEN X ELSE Y #3 
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FILE DECLARATION 
See INPUT/OUTPUT Section. 


SWITCH EILE DECLARATION 
Sea INPUT/OUTPUT Section. 
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CONSTANT QECLARATION 


] se wees ee swseesecanavone , snescen ae soausanaeseca | 


| i 
wes §6CONSTANT)06©""")0«6Constant Identifier 77 = *" Value 27777) 


The Constant Dectaration introduces an identifier as a4 synonyn 
for a constante Vakue may be gither a character or bit Literals 
an expression which evaluates to a fixed constant» or 4 
previously defined constant. 


Exampte: : 
CONSTANT TEN = 10> 
FIFTY = 5 * TEN» 
LEVEL = "11.075 
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TYPES 

Iype 


I | 
I-- Array Type errr) 


acgalar Iyoe 


i . i 
I-~ Reference Type c-°%7%7] 
j 1 
j-- Pointer Type s**7°77] 
! { 
i-- File Pointer Type ---1 


Sinpie Tyoe 


au nena FIXED sasaweeaus ana eceue nena een eneane wens asa nseweeseeceaaa= |} 


1 ! 
Jf eeerere BIT weer ast ese econ ese ee ees ewes setae ee ee eanetaceseaa | 
| j | i} 
! i7-- CHARACTER <--1 t< (€ |=" Tyoe Size =" dF wet F 
| | 
[-- VARYING ewe ertaseneenes sewn anata mneaceweneanaane seca | 
1 1 
l-= Record Identifier sssesesssser ses sscsnccensesnesescn|} 
I ! 


I-- Set Identifier -s-stec essen ns seen s ce ses seer nn eneeee-] 


! ! 
{°-7 CHARACTER_SET seawenecen estos ewes esa anses woos onseceaa | 
i | 
I-- NENBER OF <== Set Identifier ----n-ee-enenenn-e-- es] 
1 ! 


j-- ECGOLEAWN sana ens anes ewawan annem ann ews estes estan esas ce | 


The type FIXED wilt allocate a 24 bit field» where the high order 
bit 15 interpreted as the sign bit €0O = positive» 1 = negétive). 
Negative vabkues are rerresentad in their two's corplenert fora. 
Fixed numoders can range from *C2e**23)41 to C2xx25)-1. 


The type BIT wilt attlocate a field of <Tyoe Size> dits. It can 
have a maximum size of 55535 bits. <Tyoe Size> can antly ce 
omitted in the <Type> part of a formal parameter declarations the 
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<Type> part of a orocedure declaration» or a Reference Type 
declarationr indicating that the size is dynamic. 


The type CHARACTER witt allocate a field of <Type Size> 
characters. Each character occupies 8 DdDits. It can have a 
maximum size of 3191 characters. <Type Size> can onty be omitted 
in the <Type> part of a format parameter declaration» the <Type> 
part of a procedure dectlération»s or a Reference Type declaration» 
indicating that the size is dynamic. 


The type VARYING can onty be used in a procedure declaration or 3 
formal parameter declaration. It indicates that both the tyce 
and length are dynamic. 


The type <Record Identifier> wilt allocate a field with the 
length of the sum of tha fields in the Record Declaration» and 
make available the fietd names for field selection. The field 
will be of type Character if att subfietds in the Record 
Declaration are Characters otherwise it will be of type Bit. 


The tyne <Set Identifier> will atlocate a field with a tength 
equal to the number of members declared in the Set Oectlération 
Cin bits). 


The type CHARACTER_SET is a predefined Set Cectaration with 256 
members» the EBCDIC character set. 


The type MEMBER OF will allocate a field with a lenath eatal to 
the numpoer of bits required to rapresent the set memder with the 
largest ordinal value. 


The type BOCLEAN is a predefined Set Member Declération. Tt is 
Gefined as 3 member of a set containing two memberse FALSE and 
TRUE» with ordinal vakues 0 and i» respectively. 
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Reference Iyne 


| j { 1 
H i-- Simple Type --1i 1 
| ! 
je-- Record Identifier err- REFERENCE se-2] 


If a variable is declared to have a typs of reference in a 
Variable Oectlarations a descriptor is attocated for it on the 
Descriptor Stack. It originally has no data associated with it» 
out can 92 REFERed to some data space. if <Simple Tyrpe> has a 
constant Cnonzero) tLength»s then the reference variable is 
coerced to have the specified type and tength» and any REFERS can 
alter only tts data address» but not its type or tength. If 
<Simple Tycpe> is just BIT or CHARACTER without a length» then the 
type serves only as a comment» unless the INITIALIZE_REFERENCES 
compiler control option is sete CSee INITIALIZE_REFERENCES in 
the COMPILER CONTROL Section). 


It is the programmers responsibility to guarantee that 4 
reference variable has been REFERad to vatid data space before it 
is used. The use of an uninitialized reference variable will 
produce unpredictable rasults. 


If a fietd is declared to have a type of reference in @ Record 
Declaratation» 96 bits are allocated. When it is REFERed> a 
symbolic form of the descriptor is stored in the field. The 
selection of a field that 1s a reference type wilt cause an 
automatic dereference; tne descriotor can oanty be accessed with 
a Refer statement. 


The second form of Reference Type declarations» with REFERENCE 


specified tlast instead of first» is includec onty as a means of 
conversion from SOL to SOL2. 


Example: 
DECLARE 
TEXT REFERENCE CHARACTOR» 
SOURCE CHARACTER (€89)>3 


REFER TEXT TO SOURCES 
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eere- POINTER == Simple Type tees rnnnnneene-n----- elated 


The <Simote Type> must be a constant tength type. A field of 24 
bits witt oe allocated to cortain the address of the REFERed data 
SDacee A pointer variable has no data associated with it untit 
it 31s REFO%ed to a data items. Whenever a oointer is usad it wittl 
automatically be dereferenced to the field opo0inted to Cy the 


pointer. There 1S no protection if a pointer is REFERed into 
dynamic memory and that page gets rolted out of memory. The ain 
use of oointers is for the NCP. For most other applications», 


reference variables should be used instead of pointers. 


Example: 


RECORD RSLNUCLEUS 


MCP_BIT BITC1)>» 


RECORD HINTS_FORMA 


s 


FIRST_9 POINTER RS_NUCLEUS» 

MCP _RSN POINTER RS_NUCLEUS» 
DECLARE 

HINTS HINTS_FORMs 


ACTUAL_RSN RS_NUCLEUS>» 


REFER HINTS eMCP_LRSN TO ACTUAL_RSNs 
HINTS e¢MCP_LRSN MCP_S3IT2=TRUEs 
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eae FILE POINTER cece cen eens cee e nn nce n rence en nn nc ec eee necees| 


1 | 
f=- € == KINO == = == Gevice =- ) =|] 


A file pointer is used as a programmatic reference of a file. A 
Rafer Statement 1s used to assign a logical file te a file 
pointer variable. The file oointer may then be used in any 
context where a file is allowed. For examples» file sointers are 
atlowed in any [/9 statement. File pointers may atso 5e passed 
as parameter s»e whereas conventional files may note Notas 
howevers that file pointer paraneters may not be sassed by value. 


It is the programmer*s responsibility to guarantee that a4 file 
pointer has been REFERed to a valid file pefore it is used» since 
{[/0 statements with an unassigned file oointer will produce 
unoredictable resultse 


Device can be any tagat device kind. (See the KINO file 
attrioute in the INPUT/QUPUT Section). The default device kind 
is DISK. The Kind specification is required to distinguish port 


and remotes fites from other kinds of files. Port and remete file 
pointers may only be REFERed to port or remote files. Similarty» 
fite pointers which are not declared as port or remote may not be 
Referred to port or remote  fites. These restrictions are 
required because the compiler must generate different I/o 
communicates for port and remote files. 


File pointers ara? not attowed as array elements» record fietis» 
or function return valuese 


Example 3 


FILE Fl CKIND = DISK)» 
F2 CKIND = PRINTER)» 
FR. (KIND = REMOTE)? 
DECLARE (Xs Y) FILE_POINTER> 
Z FILE_POINTER (KINO = REMOTE), 
QUFFER CHARACTER (80)3 
OROCSOURE TALK CF)3 
FORMAL F FILE_POINTER: 
FeRECOWDSI7E s= 803 
OPEN F3 


WRITE F C3UFFER)> 
CLOSE F LOCKs 
END TALK; 
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PROCEDURE GOSSIP CF); 
FORMAL F FILE_POINTER 
WRITE F C3UFFER)Ds 

READ F CBUFFER)> 


ZNO GOSSIP: 


BUFFER 3s= 985 
REFER X TO Fis 
REFER Y TO F23 
REFER Z TO F353 


BUFFER s= "HI THERES 


TALK (X)3 
TALK CY); 
GOSSIP (€Z)> 


hii 
COMPANY CONFICENTIAL 


B1C00 SOL2 COMPILER 
PeSe 2228 33519(8) 


CKIND = REMOTE); 


Note that TALK €2Z)» GOSSIP CY)» or REFER 7 T0 Fl are not allowed» 


and will Se syntaxed by the compiler. 
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en ( s8" Array Bound “27 ) creer esse esesseese"= Scalar Type ="! 
I 
[atece teeen] i- Paged Part 1 


eres- PAGED oss""- ( "= Elements Per Page 72>) ceeeenet 


An array 15 a collection of individuat elements which are all of 


the same Scaler Type. Each element of the array can (be 
referenced by using the name of the array variable» folicwed by 
the element numder enclosed in parentheses. EFlements are 


nundered from 0 to Array Bound = 1. 


Array 30und and Edemeants Per Page can range from i to 55535. 
Eiflements Per Page wiil be rounded down to the next lower ccwer of 
2e An asterisk may be used in place of Array Bcund onty within a 
formal parameter dectaration. 

If Paged Part is specified» the array witt te allocated to 
dynamic nemorye Pages will be allocated only as necesséry» and 
the pounds of the array are allowed to increase past Array Round. 
However Array Sound witli be used to determine how much metory 
Will be initially assigned to the nontovertayaole page table for 
the array. Paged arrays are not altlowad within format paramatear 
declarationse 


Examples: 


€10) 6COLcCAN>» 


DECLARE 
A 
P €256) PAGED €32) CHARACTERCIO)s 


y to increas2 


Programs using paged arrays may find it Sar 
the default values 


n 
Dynamic Mamory and/or Virtual Oiskt abov 
supplied by the compiler. 
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TYPE QOECLARATION 
1 i 
cer 6€6TYPE) 60tter")06 6Type Identifier = = 25 Type seseerers 
The Type Declaration attlous an idantifier to appear as é= Tyne 
inside a Variable Oeclarations Procedure Declaration» Recordi 
Declarations or Typ@ dDectaration. Cniy types with a censtant 
length are ailowed. 
Examole: 
TYPE STATE_INDICATOR = MEMSER OF STATE_SPACE> 
ADDRESS = BIT (€24)» 
STATE_VECTOR = €38) STATC_INOICATOR; 
DECLARE STATE STATE_INDICATOR> 
VECTOR STATE_VECTOR>» 


CI) IN TERMINAL_STATES THEN TERMINATE CI); 
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RECORD DECLARATION 


sese= RECORD <<“="<= ‘Unstructured Record “089 <s<s<sss6"es=<= | 
i 1 
je~- Structured Record <-71 


The Record Declaration is 2 convenient way of mapping the layout 
of a structur?. It allows variabtes and fields within oathar 
records to be jyiven structure. (See Selactor in EXPRESSTOINS 
Section and WITH STATEMENT in STATEMENTS Section for referencine 
of sudfielas). 


The structured record declaration is included in SOL2 oniy as a 
means of easier conversion of the SDL PL/I style structuras. The 
unstructured record dectaration is the preferred fora. 


Unstructured Record 


s---- Record Identifier c-r-- Field List snccceenseresernn-] 


Field List 


| Kee e eter cece sens 4p ences ese seme senancesa=] 
{ } 

sweezees Fiald Identifier 7777 Typq set eseesesseneeooseuca=|j 
{ 1 ! i 
Po odes FILLER seereceenrne] 1 
1 ] 
fe-- ({ = Cospatial Field List *-: J <2] 


Cosgatial Eield List 


| i 


anwaae Field List ABO RD BENET HBR EBB nneaaanaanmraaasn oan ee ] 


Fields may oe declarad cospatial. That is» each field list 
remaps the other cospatisl fiald tists» ana the tlangth wilt 
always be the lenyth of the Longest field list. 
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Example: 


RECORD SYSTEM _CESCRIPTOR_FORM 


IN_USE BITC1L)» 
MEDIA BITCL)» 
LOCK B3ITCi)» 
IN_PROCESS BITC)» 
INITIAL SITCL)» 
FILE_OSJECT . BITCL)» 
DOK _ FACTOR SITC3)» 
SEG_PG BITC7)>» 
PPE JITC4&)» 
{C ACCOR 8tT¢{ 36) 
1 FILLER 3I7C12)» 
CORE aAITC24) 
l» 
LEN BITC24)+3 
DECLARE 


SYSTEM_DESCRIPTOR SYSTEM_DESCRIPTOR_FORM; 
IF SYSTEM_CESCRIPTOR.»MEDIA 
THEN READ_TO_MEMORY> 


structured Record 


> sewn answee@ Structured Fiatd List ewenemm anes ees amen n naw aensanas | 


Structured Field List 


! “ 
wesem Level Number -- Structured Field Identifier -- Type «=-°--1! 


structured Eield Identifier 


eecrcre= Identifier  tetcttt essen recccncc ce cccccereece coerce 


l { | I | 
| ee CN Se ose f=- REMAPS *= Identifier 1] 


J----- FILLER te secc ences mec c cnn cence nsec renee eens ncee= 
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Examples 


RECORD JL MEMORY_LINK 3ITOMEMORY_LINK_STZ=)>» 


02 ML_DISK OSK_ADODR> 
02 ML_GOUP SIT(AT)» 
93 ML_LPOINTER ADSRESS» 
03 MHL_JOS3_NUMSER BITC15)>» 
03 ML_TYPE BIT(6)>» 
03 ML_SAVE BITC1)» 
02 ML_SIZE BIT(24)>» 
92 ML_PRIGRITY_FIELD BIT(30)» 
93 ML_OK_INTERVAL BITC10)» 
93 ML_CURRENT_DK_INT BITC10)» 
03 ML_INCOMING_PRICRITY QIT(5)> 
33 ML_RESIDENCE_PRIORITY BiT(5)> 
94 ML_RP_WHOLE 2iTC4)> 
O04 ML_RP_FRACTION BITCL)>» 
O02 ML_FRONT BIT(24)> 
02 ML_BACK BIT(24)> 
02 ML_USAGE_BITS BIT(2)>» 
03 ML_PREVIQUS_SCAN_TOUCH BIT(1)> 
93 ML_CURRENT_SCAN_TOUCH BIT(1)3 


11/95/32 3-17 


BURROUGHS CORPORATION COMPANY CONFICENTIAL 
COMPUTES SYSTEMS GROUP Bicdgod SDL2 COMPILER 
SANTA BARBARA PLANT . PeSe 2228 3519(8) 


SET DECLARATION 


eoers SET seeeers= Set Identifier tert et sree ence eer nee ees > 


! 1 
> sa aw ae = sa eaunmawenmaanadweanee Mamber Identifier sununeannanwanaa { 


The Set Declaration is used to define the mambers of a Sete Fach 
member 158 given an ordinal value» in ascending crdearre bdacinning 
with zeros (Set members are vary similar to Pascal’s Scatér Tyna 
constants). 


CHARACTER_SET is a predefined Set type whose 256 memodars are the 
EBCDIC character sete The predefined type 3OGLEAN is a msewter of 
the predefined Set = FALSE» TaUE. Hence FALSE has the value 0 
and TRUE the value 1. 


See also MEMBER UF in TYPES Section. 


Examples 


SET SYMBOL_KIND_SET = 


INVALIC» 
NUMGSER » 
STRING» 
ICENTIFLIER» 
SPECIAL> 
DECLARE 
NUMERICS CHARACTER_SET> 
ALPHKAS CHARACTER_SET>» 
SPECIALS CHARACTER_SET> 
SYM30L MEMSER OF SYMBIL_XINO_SET> 
OPERANDS SYMBOL_LKIND_SET> 
CH CHARACTERCL)> 
OPERANDS s= CNUMBER» STRING» FTOENTIFIERT> 
NUME AICS 2S. OPO e? PL Mee Te Tae. TS Tepes Eta Se 
ALPHAS 3= {°A7 70 “ie *d" TO Rese "ST TO 87893 


IF CH IN NUMERICS 

THEN SYM30L 2= NUMBER; 
EL Oe: EF CH IN ALP HAS 

THEN SY¥480L *= TOENTIFIERs 
pio te = ane 

THEN SYMBOL s= STRINGS 
ELSE IF CH IN SPECIALS 


baa a 
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THEN SYMBOL 2= SPECIAL? 
ELSE SY¥BOL s= INVALID> 


TIF SYMBOL IN OPERANCS 
THEN GET_OPERANDs 
ELSE CASE SYMBOL OF 
SPECIAL = GET_SPECIAL> 
INVALID = ERROR C™INVALID SYMBOL"); 
END CASE? 


Nota that the compiler performs sone checking to see thet sets 
and members are not accidantally misused. A membder dectare2s 
within a Set declaration detcngs onty to its carert seat. Any 
singls character valu2 can balong to any character sete Fixed or 
bit values can belong to any bit string» or any constant set 
consisting onty of fixed and bit members. 


See also CHR and ORD in STANDARD FUNCTIONS Section. 
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VARIABLE DECLARATION 


LK SSS e es Re eseseeaseeats fo Ste seer eRe Ses se) 
| | 
erm DECLARE seeeereesern= PTdentifier sss2sece2se"= Tyce <-2°) 
1 ! 
f== f == Ttdentitier List ==) 7 “1 


identifier List 


jp <w eee eneasce , ee ee 
{ j 


The Declare Statement atlocates memory storage for variables and 
defines their typee 


If the type size and/or the array bound of <Tyope> is a 
nonconstant expression» than the dectaration wiil be considered 
a dynamic declaration. Dynamic variables are not allcwed at 
lexic level Of Oynamic variables will be allocated a descriptor» 
and space wilt be atlkocatad for the variables on procedure entry. 


Paged arrays are attowed at any lexic lLeval. They will be 
allocated a descriptor» and their memory soace wiitl be allocated 
from dynamic memory as needed. 


Static Variables will be atlocated space in metory and wilt not 
have a descriptor. 


Reference variables do not havea space allocated» Dut get 4 
descriptor atlocated that may be REFERed to some data sodacee 


Example: 


VECLASE 
I FIXED» 
CJ» K) CHARACTER CLIO)» 
A (19) FIXED» 
XR REFERENCE FIXED» 


P €1024) PAGED Cle) FIXED: 
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PROCEDURE DECLARATION 


“=== Actual Procedure Declaration sce st eee se secnese aan wasteaena= | 
i 1 
Ye" FORWARD wer""" Procedure Head =="! 
{ i 
pee EXTERNAL =e] 


Actual Procedure Declaration 


{ 1 1 1 
I-- Declarations -=1 i-= Body =<] 


Procedure Head 


\ 


w=- PROCZOURE *=- Procedure Idantifiar seer ee eee rere ne neeenn> 


] H H | 
l-- Parameter List =] {-- Type =<] 


Ld 


l-- Formal Parameter DJectlaration == ; me} 


Parameter List 


coeee- em~ (tes Identifier List c22  ) tee eseenecerecseeee=9] 
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Formal Parameter Declaration 


{ 1 

] [ < aa eww eas en ameweene , owes eoeeenoae =|} 1 

I 1 t ] 
aan e oe FORMAL sn ease eve neaaes a Lientifier wenewecauna es Type seanuae } 

i | i 

Te FORMAL _ VALUE 1 1° € = Tdentifier List = ) wi 


adentifier List 


J <<cowe~ » suawecee | 


nae Uae URa nanan anunananaaa ea Identifier snaau assent anaes anew ee ae sa | 


The Procedure Declaration is used to define a program fragment 
and to associate it with an identifiers so that it can Cte 
activated oy a Catt Statement or Typed Procedure Catt. 


Declarations within a orocedure only have the scope of that 
procedure (1.48. when the <cNO Procedure Identifier> is 
encountered they are no Longer accessible to the programmer). If 
a procedure needs to be called bafore it is declared» a ‘FORWARD 
declaration must oe made to define it and its formal paraweters. 
If the procedure is declared in another oprogram unit (see 
SEPARATE COMPILATION)» then an EXTERNAL declaration is reeded. 
EXTERVAL declarations are only allowed at Lexic tevel Oo. 


Procedure dectérations may da nested to a maximum of 15 tlevels. 


The order of declaration of foraal parameters must match the 
order in <Parameter List>. 


If a garamneter is declared FORMAL_VALUE» a copy of the data will 
be mada» and the original data will be praservad. Arrays and 
file oointers may not o8 declar2d FORMAL_VALUE. 


If a format oparametar is a Reference or Pointer variable» its 
address or fLength may oe adjusted inside the procedure via 4 
REQUCE or REFER statement. However these adjustmants will only 
affect th2 parameter within the procedure oody-p and vanish oon 
procedure exite 


lf a oarameter tis declared as an Array» then any actual argument 
passed to the procedure must also be an Arrays though it need not 
be of the same tyoe or size. 


11/05/82 | 255 


BURRQUGHS CORPORATION © COMPANY CONFICENTIAL 
COMPUTER SYSTEMS GROUP 31€09 SOL2 COMPILER 
SANTA 3ARK8ARA PLANT PeSe 2228 3519(9) 


Nota that no type coercion is done for eaither FORMAL or 
FORMAL_VALUE paraneters» untess they are declared as Records. 
For non"Secord type pérameterss actual arguments passed in a 
procedure cali will maintain tnair originally declared tyre» and 
the type from the parameter declaration wilt be ignored. Ao tyn2 
checking 718 done unless the parameters are Sats or Memberse in 
which case a syntax error will be given if the actual argument is 
not of the same type as the corresponding parameter dectération. 
If a parameter is declared as a Record» then any actual aroument 
passej to the procedure? must 52 of the same tengtne thouch it 
need not 5Se of tne same tyde. 


Example: 


FORWARD PROCEDURE ACP Ys 
FORMAL P FIXEDs 


PROCEDURT BCP); 
FORMAL P FIXED, 


es 


ACP )> 


ENO 85 


PROCEDURE ACP )>3 
FORMAL P FIXEDs 


HCP)» 


END As 


PROCECURE MAXCXeY¥) FIXED; 
FORMAL CXeY) FIXED? 
IF X>Y 
THEN RETURN Xs 
ELSE RETURN Y; 
ENO MAX? 
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BODY 


Statement List 


STATEMENT List 


STATEMENTS 


4-1 
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euaeanwewn een ews eee means een amen enews secoee | 


{ Cwwvweun ene seaman eceaneuwaescasnw an asaes | 


f=" Assignment Statement 
— Call Statement 
i Case Statement 
as Do Statement 

ie For Statement 
ae if Statement 

_ Refer Statement 
= Reduce Seapawent 
or Repeat Statement 
ee Return Statement 
_— Stop Searewent 
— Swap Statement 
me Undo Statement 
a While Statement 


With Statement 


] 


ewan ecaeanzel 


ewenececoau sen] 


weceent 


| 


sawaccvaae | 


Pd 
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ASSIGNMENT STATEMENT 


Setector Fxoression 


Assignment Statement is used to store a value into 3 
variable. If both fields are of type Character» then the nove 
wilt se done from Laft to right witn clank-filling on the right 
if the destination field is longer than the source field. If 
either of the fields is not of tyoe Characters» then the meve witl 
be done from rignt to Left» with zero-filling or the left if the 
destination field is tonger than the source field. 


The 


Care should obe exercised when the source and destination fields 
overlap» since data is moved onty three bytes at atime in the 
direction indicated by the operand types. To avoid unexoected 
results» the destination fietd of an oaverlapring assianment 
Should be parenthesizeds ege SUSBSTR CAr 1) 2= CA)D-~ 
See also Put File Attribute in INPUT/OUTPUT Section. 


Examples 
DECLASE 
CA» de C) FIXE> 
As= 8 + C; 
DECLARE 
S3IGNU4 BIT C24)» 
LITTLE NUM BIT €1a)» 
3IGSTRING CHARACTER (€5)>» 
LITTLESTRING CHARACTER (2); 
BLTGSTRING s= "TARCDE*S 
LITTLESTRING s= dIGSTRING:> % Sets LITTLESTRING to "AR" 
BIGSTRING s= LITTLESTRING; %* Sets BIGSTRING to *A3 is 
-SIGNUM += 9763251335 
LITTLENUM t= SIGNUMS & Sets LITTLENUM to 332516 
SISNUM t= LITTLENU‘S % Sets SIGNUM to atdv3e512 
BIGSTRIVG := ™* *; % Seats sIGSTSING to ” is 
JITGNUM s= 7 95 % Sets SIGNUMYM to 20000408 
SIGNUM s= OF % Seats BIGNUY to g900900904 
LITTLESTRING 3= Q3 %¥ Sets LITTLESTRING to 200003 
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CALL STATEMENT 


—- = Procedure Identifier seuerenua cee se eam ences es aeamtanw ewes eaawe | 
1 1 
te=- € =" Parameter List == ) ==! 


J] <«"=s2402 , enweun | 


The Catl Statement is used to activate an untyped orocedure that 
has opeen declared with a Procedure Declaration. There must be an 
Expression in the Parameter List for every Formal Parameter 
dectlared. 


Example: 


Az= MAXCis J), 
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CASE STATEMENT 


weerer= Unlabeled Case Statement Ws set sescsseceneceees eancncaaa |} 
i ] 
t-- Labeled Case Statement “-"--! 


Untabeled Case Statement 


we-- CASE "=" Expression 77) 3 == Statement List ssc s224-> 


Pesta ven vSs Hs Te ewan eens es ewH ens e eee ENS CASE weuwsewe j 


I i 
Jem ELSE " Statemant 74 


The value of Expression 185 used as an index into Statement List. 
Suppose there are N Statements in Statement List. If &xoression 
has a value between 9 and Nels» then tne corresponding Statement 
wilt ce executed. If the value of Expression is out of ranger 
then the Statement following the ELSE wilt be eaxecutead» or if 
there its no <ELSE Statement>» then a runetime error will Ce 
generated. Once the selected Statement has deen executeds 
control is passed to the statement fottowing <ENCD CASE>» unless 
the setected Stateamant was an Undo or a Return. 


Example: 
cASE I3 
HEX 2= "G"; 
HEX s= “1%, 
HEX s= 72"; 
HEX 3s= *37%3 
HEX 32 4M 
HeXk 2S "os 
nEX s= "6% 
HEX 3= "7% 
HEX s= "33 
HEX 22 "G7 
HEX s= “A? 
HEX s= "Qh> 
HEX s= "C73 
HEX s= "DMs 
HEX 3= "Es 
REX s= "FR; 
SE 
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Labet2d {Case Statement 


=e CASE ey Expression as oF wseanewn nnn ene aennaneet ae em eae > 


>eee= Labeled Statement List <cseseererr* END CASE vecceces] 


Labeled Statenent List 


j j 


1 i 
Je- ELSE wre" Statemant i 


Label List = 


pte ree ee sew eseeses= po MSR See seme sems sense {| 
1 ! 
sees ICONStANL “Stee Ses sas 455 4655S See eS Sees eae SS =H 2 See la a tea | 
t i] 
i-- TOG 7 Constant <1 


The Labeled Case Statement selacts for execution that stéetement 
whose Label is aqual to the value of Sxonression. If no stétenant 


has a Lapel that is equat to the valua of Expressions then the 
Statement following the ELSE is executed» or a runctime error is 
generated if there is no <ELSE Statement>. After execution of 


the selected Statement control passes to the statement followine 
<END CASc&>» unless the setescted Statement was an Unde or a 
return. 


Each Label must oe within the range 9 to 255» and may be af any 
tyoe. If TO is used in a case tabel» the first constant must 5e 
less than or equal to the second constant. Juoticate tabels are 
not attlowed. 
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Examptas 
DECLARE 
CH CHARACTERC1L)» 
CHUTYPE MEMBER OF TYPE_SETs 
CASE CH OF 
won T9 “go” : 
CH TYPE 3= NUMERIC? 
m5 rf 4 
CHLTYPE t= SEMICOLON: 
",t ; 
CHLTYPE 3s= COMMAS 
wc, ae ald 2 
CHLTYPE <= PARENS 
ELSE 
CHLTYPE s= UNKNOWNS 


END CASE> 


4=5 
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DO STATEMENT 


I ! | i 
l-- Oo Group Identifier --! fe" FCREVER =-1 


a= =>» 


ase e sa ecana nnn was weet aet ena wecaee | 


] j 
j-- Go Grouo Identifier --] 


>=" Statement List sen §6€6E ND 


The Do Statement allows a tlist of statements to be crouped 
together. If FOREVER is orasent control will te passed Fack to 
the first statement from the end of the statement tList. Tf 
FOREVER 15 not presents then controt witl be passed to the 
statement following the <END Do Group Identifier>. The Do Grous 
can be exited with an Undo or Return statement. 


Example: 


DECLARE 
I FIXED» 


A CARRAY_SIZE) FIXED? 


s= O03 
DO INITLA FOREVER: 
IF ~ = ARRAY_SIZE THEN 
Dos 
Is= O53 
UNOO INIT_As 
END? 
ACI):= 3 
s= [ + 13 
; 


END INIT_A 


11/095/782 


BURROUGHS CORPORATION 
COMPUTER SYSTEMS GROUP 
SANTA SARBARA PLANT 


FOR STATEMENT 


see =F OR Arithmetic For Range 


Set Member For Range 


Arithmetic For ange 


--- Control Variaodte «"* 3= *-- 


The Control Variable must 

Start and Stop must be Expressions» 

type Fixed. 

Variable will be tnitialized to the value of 
wiil 

including) Start and Stop. The 
incremented (€(T0) or decremented 


iteration of the Loop. 


Exampie: 


Start 72° FQ 


Controt 
CCOWNTO) oy 
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| 


“=| 


Statement 


seaman a one |j 


Stap 
l } 
fe" QOWNTO --1 


De a simple variable cf type Fixed. 
and witt be coerced to 
Start and Stop wilt be evaluated and then Control 


be of 


Starte Statement 


bp@ executed for each value of Control Variable between Cand 


will be 
after ?2ach 


Véeriablte 
one 


DECLARE 

I FIXED» 

A (199) FIXED; 
FOR Is= 0 TO 4 

ACI):= I>, Z wilt be executed 5 tines 
FIR Iz:= $99 JOOWNTOD O 

ACIl)s= 99> % will be executed 100 times 

FOR Is= 2 T9 I 

ACI)3= 10003 % will never be executed 
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set meaber Eor Range 


===" Control. Vat iapie === IN <="Set Exeression: "2s" 22s s2s=<=1 


The Control Variable must be declared as a memoer of a set. The 
Set Exoression can bea any tegal set expression of which Cortrol 
Variable is a menber. For each member of Set Expressions 
Statement will be executed with Control Variable set to the value 
of tne member. 


Example: 
Sef S = APPLE» BANANA» ORANGE» PINEAPPLE; 
DECLARE 
FRUIT MEMSER OF S» 
MY_FAVORITES S» 
YCUR_FAVGRITES 53 


MY_FAVORIT<cS 


= CORANGEs 3ANANAI? 
YOUR_LFAVORITES 3= 


CORANGE» APPLE I> 
FOR FRUIT IN MY_FAVGRITES UNION YOUR_FAVORITES 
EAT CFRUIT)> % witht eat applies» benena 
% and orange once for each 


Note 


Any nodification of the Set Member Control Variable or the Sat 
Exoression within the looo wilt not alter the Looping. Herce: 


FOR FRUIT IN MY_LFAVORITES 09> 


EAT CFRUIT)> % will still eat tearana 
MY_FAVORITES 3= C13 % and orange once for 
ENOs % a@ach 

FOR FRUIT IN MY_FAVORITES 9935 % will stitl eat tanana 
E&aT CFRUIT)3 % and orange once for 
FAUTT s= APPLE> Z @acn 


ENO? 
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IF STATEMENT 


! 1 
|=-- ; a. EE Se -< Statement wa j 


The Statement following the THEN is executed if txpreassion yields 
a true result. If Expression yialds a false result then the 
Statement following the ELSE 1s executeds if the ELSE is present. 


When using nested IF statements» an ELSE will be matched to the 
closest previously unmatched THEN. 


Examples 


DECLARE 
HAX FIXED» 
VALUE_1 FIXED» 
¥ALUE_2 FIXED; 


IF ¥VALUE_1 >= VALUE_2 THEN 
MAXS= VALUE_1? 

Elo 
AAXS= VALUE_ 2; 
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REQUCE STATEMENT 


ees )6©6REDUCE[6U6Uf=©06hUObject Raference Variadle scs*sseseeresnweeseen=> 
as 


~ 


I { 
Ie-)}6 6©6SETTING)6 6©fe)—06hURe@Suit Reference Varisabie 1 


Seer e UNTIL Se" FIRS! sss ssese= =. sees eesa=: “Expression ~ => 
| i { 1 i | 
f- LAST «1 | j-7- <> ==] 1 
i ] 
[ese 5 se" S32 e5° Dee 
| 1 
t= NOT --] 


i 
I-- 5 s="2" ON EQS_CYCLE <-""= Statement <1 
! 
I-- ON EDS -eeee---I 


The Reduce Statement is an efficient method of scanning chéracter 
Stringjgse The axecution of a Reduca statement does not change any 
datas the reference variables are adjusted to oo0int at a 
suastring of th? original String. The xeduce statement scans 
from laft to rignt if FIRST is specified and from right to laft 
if LAST is specified. After execution of the Reduce statement 
the Object feference Variadla is teft descriding the suostring of 
the orignal Object Reference Variadle that meets the condition cf 
the reduction. 


If the SETTING option is specified the Result Reference Veéeriabdle 
will describe the sudstring of the originat string that cid not 
meet the condition of the raduction. 


Lf the condition of the reduction is = or <>» the Expression nust 
be a character string. It should be noted that onty the first 
three characters of the Expression are compared to the string» 
but the tanath wilt pe usad to test for end of string corditioans. 
If the condition of the reduction is IN» the Exeression must be a 
SeT of characters (See SET DECLARATION Section). 
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If ON EQS_CYCLE or ON EGS 18 specified» Statement witl be 
executed when the length of Object Reference Variabte has been 
reducad to zeroe After completion of Statamant» control will ba 
passed to the next statement if the ON condition was £9S» or iif 
the ON condition was EQS_CYCLE and the tangth of Object Reference 
Variable is still zero. If the ON condition was EQS_CYCLE and 
the Joject Reference Variable is not of tength zero after 
executing Statement» then controt will be opassed back to the 
Reduce Statemente 


Example: 
DECLARE 
NUMERICS CHARACTER_SET 
ALPHAS CHARACTER_SET 
SOURCE _ TEXT CHARACTERC72)» 
TEXT REFERENCE CHARACTER» 
TOKEN REFERENCE CHARACTER; 


PROCEDURE NEXT_RECORD? 
READ SOURCEFILE CSOURCE_TEXT)> 
REFER TEXT TO SOURCE_TEXTs 

END NEXT_RECORDOS 


AL PHAS 


s= CHAR_TABLE C*ABCOEFGHIUKLMNOPQRSTUVWXYZ"™)3 
NUMERTICS := € 


"Oo" TO "9773 


eR 
Pad 


REDUCE TEXT UNTIL FIRST <> * "5 
ON EQS_CYCLE NEXT_RECORD; 
IF SUSSTR CTEXT» %» 1) IN NUMERTICS THEN 


REDUCE TEXT SETTING TOKEN UNTIL FIRST NOT IN NUMERTICS>s % 3 
ELSE IF SUSSTR CTEXT» O» 1) IN ALPHAS THEN 
REDUCES TEXT SETTING TOKEN UNTIL FIRST NOT IN ALPHAS; ai 
ELSE 2G SPECTAL_CHARACTER; 
QEFER TOKEN TO SU3STR CTEXTs O» 1)3 
REFER TEXT TO SUBSTR CTEXTs 1)>3 
END SPECIAL_CHARACTES:; 
Assume SQURCE_TEXT contains “* IF X = 999 THEN " and TEXT 
nas been rafered to SOURCE_TEXT. After executicn of the REDUCE 
at line 4A» TEXT will describe "IF X = 999 THEN ",. As the 
first character of TEXT is in the set ALPHA» the REDUCE at tine 
aC» will be selected. After execution of this statement» Text 
will describe " X = 999 THEN "and TOKEN wilt describe 


wIF™. 
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REFER STATEMENT 


co-- REFER <= Referent -- TD <= Referee settee eseeeoes! 


The Refer Statenent is used to change the address Cand peossialy 
the length and tyne) of a reaferance variable» reference fiald» 
pointer variable» or pointar field to map the data of éenotner 
variabl2. ft is also used to assign a file to a file pointer. 


If the Referent is a Reference or Pointer variables then Referee 


must de an Address Generator. Onty untyped or zerecslength 
reference variables can have their tength and type modified by a 
Refer statemente Poirters and typed reference variables will 
always retain the type and length from their original 
declaration» and may onty be REFERed to objects with the same 
length. 


If Referent is a File Pointer» then Referee must be a File. 


Example: 


FILE INFILE CK IND=DISK)> 


DECLARE 
F FILE_POINTER >» 
TEXT REFERENCES 


SUFFER CHARACTER €80)3 


REFER TEXT TQ SUFFER; 
REFER F TO INFILE> 
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REPEAT STATEMENT 


em= REPEAT 2 Statement List =" UNTIL == Expression -*--! 


Statement List will be executed repetitively until Excression 
returns a true rasult. The exit condition is tested at the and 
of each lLoope so Statement List will be executed at least ance. 


txamples 
REPEAT 
DO_SOMETHINGs 
IF END_CONDITION 
THEN DONE s= TRUE> 


UNTIL DONES' 
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RETURN STATEMENT 


ee ee) RETURN sass nee eset a seen econ eaten asaneaa |} 
| } 
I-~ Expression 1 


The Raturn Statement ailows an axolicit return from a orocedur?. 
If the procedures is typed then Expression tust be present and 
wili Se the value returned from tha procedur 3. If the procedure 
is not typed then the oresence of Expression is an arrore An 
implicit return is generated by the compiter at the end of every 
procedure. If the procedure is typed a value matching the 
procedure’*s type is returned €) if Fixed» Sit» or Record» and a 
nuli string if Character). 


Example: 
PROCEDURE Ps 
RETURNS 
END Ps 
PROCECURE @ FIXED; 
RETUAN Q> 


END @3 


11/95/82 | &=16 


S3URROUGHS CORPORATION COMPANY CONFICENTIAL 
COMPUTER SYSTEMS GROUP 31000 SOL2 CCMPILEA 
SANTA 3ARBARA PLANT PeSe 2222 3519€8) 


STOP STATEMENT 


a ee STOP Asma nese et ana nwt enwe nn aeeweeeeeeaeeee enn eceowe = | 


1 1 
I-- Expression “1 


The Stop Statement will generate a terninata ccormmunicat2 to the 
MCP to and the execution of the programe Fxoressior is intended 
for us@ dy compilers to communicate the number cf syntax errors 
to the MCP. 


Examples 


STOP> 
STOP SYNTAX_LERROR_COUNT> 
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SWAP STATEMENT 


Sseneeswese Selector 
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= se ann = Selector swan acanen } 


The Swan Statement wiit exchange the values of the two fields 
without using an intermediate variaodle for temporary storace. 


Example: 


BUFFER_1 t=: BUFFER_23 


is equivalent to: 


TEMP 2= BUFFER_1>3 


BUFFER_1 3 
SUFFER_2 3& 


= BUFFER_2> 
= TEMP, 
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UNDO STATEMENT 


aea na UNDO easwweeew ens seen nes een ean mes awenn ene cote nema na essen es @ | 


I i 
I-- Do Group Identifier --! 


If a Do Group [dentifier is ssecifiedr then the Undo Statement 
transfers controt to tha end of the Oo Group By that namee If a 
Do Group Identifier is not soecified»s than cortrot wilt be 
transferred to the end of the current Do Grouo. 


txamptes 


DECLARE 
ri FIXED» 
A CARRAY_SIZE) FIXED> 
¥ 
s= Q3 
DO INIT_LA FOREVER? 
IF Tf = ARRAY_SIZE THEN UNDO INIT_As 
ACIT)s= T> 
z= [ + 13 
ENO INIT_As 
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WHILE STATEMENT 
erere= WHILE 72°" Expression "7" Statement cases esereeee= | 


Statement will be executed repetitively while the Expression 
yields a true result. Expression 3s evaluated pefore each 
iteration» so if Expression is initially fats2 then Stétemant 
will never 52 executed. 


Examples 


DECLARE 
I FIXEDs 
A CARRAY_SIZE) FIXED; 
I:= 0; 
WHILE I < ARRAY_SIZE 
20? 
ACI)s= 1] 


11/05/82 4-2) 


BURROUGHS CORPORATION COMPANY CONFIDENTIAL 
COMPUTER SYSTEMS GROUP ditto SDL2 COMPILER 
SANTA BAR@ARA PLANT PeSe 2228 3519¢€98) 


WITH STATEMENT 


I Csees2eun=z a ? om wm a am i 


l ! 
Sse KLIN Srsette selector fets=s Sfeteneny ass sesena =) 


Selector must De 3g record variabla. Tha With Statement ocens a 
new scope containing the field indentifiers of the Record types of 
Selector. 


Inside Statement a fietd of Selector is selected dy specifying 
only its field name>» Without preceeding it with the ertire 
Selector expressions 


If a named field is found in more than one of the Selectors» then 
it is considered to belong to the tast Setector specified in the 
With statement e 


Exampie: 


‘ee 


PCI)FIELO_1 
PCI).FIELO_2 
PCI).F IELO_3 


MN =< 
‘ee WO 


60 46 oF 
ou il 


is equivalent to: 


WITH PCL) DO3 
FIELO_1 :=X3 
FIELD_2 2=Y¥3 
FIELD_3 :=Z3 
ENDS 


Exampiea? 
WITH Aw Be C 
is equivalent to: 


WITH A WITH 3 WITH C 
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EXPRESSIONS 
Expressions are the rules for calculating a value using 
constants» variables» functions» and operations. The 
conventionat rules of tlaft to right evaluation and operator 
precedence are ooserved» as indicated by the syntax graohse The 


foltowing tist summariz2s tne SOL2 precedence rules by Listing 
the operators in order of dacreasing precedence. 


+ = (Cunary) 

ke f MOD 

+ = Cadditive) 

< <= > >= = €> TN CONTAINS 


AND CAND INTERSECT 
OR COR EXOR UNION 


Exoression 


q qCween eseeet eer eussaen sacs a ences | 


| I 


1 i 
te- CA -- Cat Factor =| 


The CAT operator wilt concatenat2 two fields together as one 
field. The resulting type will be Character if both fieids are 
Characters for all cther combinations it wilt be site 

cxample: 


SUFFER3= DECIMALC(LINE_NUM3ER 4) CAT "8" CAT TEXT CAT “es 
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Cat Eactor 


! t 
ere Or Factor SS eee eS Se SSS eS Sees Ce Sees esa ee Ss esse Sees Se ees |] 
] i 
i-- GR sesessensw= Or Factor ==! 
i j 
fee’ “EXOR = =4 
I | 
{-- UNION <1 
! 1 
I-- COR == 


The OR/EXOR operation performs a Logical bitwise OR/EXOR cf two 
operandss the result wilt always be of type Sit. UNION performs 
a set union of two operands» and is functionally the same as an 
OR. COR perfomes a shortcecircuited OR of two operands. If thea 
first operand is Truer the result is True and the second operand 
is not evaluated. If the first operand is False» the resuit is 
the value of the second operand. 


Examples 


DECLARE 
CALPHAS> 
NUMERICS» 
ALPHA_NUMERICS) CHARACTERS_SETS 


ALPHASs= € 70" TQ "9" Je 
NUMERTICSs= C€ "A" TH ME, "UU" TO FRe 8S" TO "7" YT, 
ALPHA_NUMERICS:= ALPHAS UNION NUMERICS> 
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Or Eactorc 


J <wccwmmecera =m ee 2 ene @ @ oween ecco s en awan a j 


H ] 
-_ And Factor wemaenee nasa eens aenecawenanawaeseas ea nwanecasasecaaza | 
1 ! 
|-- AN} saeunanmanna And Factor =< | 
i ] 
Pe" INTERSES) 4 
i j 
je CAND samanae | 


The AND operation performs a togical bitwise AND of two operands; 
the result witt always be of type Bit. The INTERSECT operation 
performs a set intersection of two operands and is functionally 


the same as an AND. CAND perforzns a shortrcircuited AND of two 
operands. If the first ooerand is False the result is False and 
the second operand is not evaluated. If the first operand is 


Trues the result is the value of the second operand. 


Exampte: 
SET SUITS = CLUSAS» SOLTAMONDS» HEARTS» SPADES; 
DECLARE 


CPLAYER_Ay PLAYER_2> MATCHING _SUITS) SUITS 
MATCHING _SUITS:= PLAYER_A INTERSECT PLAYER_3 


IF I < ARRAY_EOUND CA) CAND ACI) = TOXEN 
THEN DISPLAY ("TOKEN FQUND™)3 
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And Eactor 


l< «7s e88 ] ] < aww ec eer ewewreeece ccs ennwaeeeeae j 


! { | t 
eeeeeasee == Retal1onit-Faccor as San ease rs sears ear ese Ss 4 
! | I 1 
I> NOT =I [“- = seeee== And Factor =~! 

1 l 


i 
Je- << eeeend 
ot 
f-- > seeae] 
1 
In-- <= seees] 
i 
Jeo > eeeer] 
! 
I-- IN cme==1 
i 
f-- CONTAINS <1 


The relational operators leave a resul't that has a value of 1 if 
the condition is true or 0 if the condition is false. The NOT 
operator wilt perform a togical NOT on one operands and will have 
the same tyoe as its single operand. 


The IN aperation tests whether the first factor Ca 33t element) 
1s a menoer of the second factor (a seat). Tha CONTAINS operation 
tests whether the first factor Ca set) contains the second factor 
Ca set)» tnat is» whether the sacond set 1s a sucset of tne first 
sete. 


Examptas 


4 = 3 
X IN C1 TO 4] 
CRED» YELLOW> GREEN» BLUEJ CONTAINS CRED» 8LUE) 
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\ - 


Rkelational Factor 


j Ceasers n ene wenn wren aocan ewan a sawn | 
j ! 
-_ 2 Add Factor sm aece eset ceen ea wewes esteem ewe ewe aswnawe eae an | 
1 | 
[== 4 seeeeee- Add Factor ==! 
I | 


Ime =o] 


The + and -°* operations perform 24 bit» two's complement 
arithmetic on two operands. Tf either operand is longer than 24 
bits» only the rightmost 24 bits wiil be used. The result will 
pe Fixed if both operands are Fixeds otherwise it will be a 
B8itt24). 
Example: 

A + 3 

A - 3 
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Add Eactor 


1 | 
a) Multiply Factor seaeen se owoen ee scuwoansew ee es ees weanmesaccae | 
i 1 
pe: 40D SS e= “NULEDTOLY Factor: “<1 
1 i 
= kk eee 
i 1 
bes gf ° wees) 


The MOD *® and f/f operators perform 24 bit» two's complement 
arithmetic on two operands. The result will be Fixed if both 
operands are Fixed» ctherwise it wilt be 81t€24). Division 
yields an integer result» ignoring the remainder Cie 9/4 = 2). 
The MOD operation is division resulting in the integer vatue of 
the remainder Ci.e~ew 9 MOD 4 = 1). 


Examptie: 
A MOD B 
A « @& 
A f/f 9 
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Multiogly Eactor 


i 1 ! 
{== + 


{ i j 


j-- 


I-- = =] 


i-- 
I 
j-=- 
f 
j-- 
! 
i-- 


{-= 


{ 
i--  ¢ 


The unary = 


Selactor 


Literal 


If Expression 


Expression 
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Typed Procedure Call 


Standard Function 


Set Constructor 
File Identifier 
Get File Attribute 
Assignment Expression 


Case Expression 


operation witt negate the value of an operand. 


unary + does not change tne operand. 


A Literal 2ither 


Bit Stringe 


may ode 


See INPUT/CUTPUT Section 


Attribute. 


a Fixed 
See SOL2 LANGUAGE Saction for details. 


for 


Numoer » 


File 


=. euw-} 


i 


senserteccuns acca | 


! 


-_—-— 3 on] 
The 
a Character Strings or a 
Identifier ard Get File 
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selector 


J < aeme ewer enmwaceeuwaewnaua | 


i ] 
=s= Variantle identifier ser sts- sas aseessesesne sce esses ses ese | 
{ j 
t-- Fieatd Selector ==] 
} { 
f= Array SUDSEr Ot “=! 


aialaetaatetetetataate -~ Field Identifier -s-crestrenee rece eeee--! 


Arftay suascriot 


A Selactor is an Address Generator which identifies a variable or 
a subfield of 3 variable. 


If an Array is referenced with a subscript that is Less than 0 or 
greater than or equal to the array bound a runctime error will bea 
generated. 


Examples 
RECSRE SL 
LEN FIXED» 
UF FSET FIXED? 
RECORO &2 
I9S ¢€10) Ris 
TYPE FIXED; 
DECLARE 
A €19) R23 


ACT) -IOSCJIALENS= V> 
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--= Procedure Identifier secrete eresewees wesc ssccwennccaccuesa | 
j 1 
t-- ( ** Parameter List == ) 20] 


A Typed Procedure Call is used to calt a procedure that returns 4 
vatue» and to use that value in further Exoression evaluation. 
Exampte: 


MAXIMUM 2= MAXCX eV) 


11/95/32 eae a 


BURROUGHS CCRPORATION COMPANY CONFICENTIAL 
COMPUTER SYSTEMS SROUP 31000 SOL2 CCMPILER 
SANTA 3ARBARA PLANT PeSe 2223 35198) 


aeit Constructor 


J <eeweerenwacacasanace , seen aneonecaenseaeceans | 


1 i 
on [ seQacguaeanswanau aw @ Expression sm aeceanwnweanawanana ns a } we] 

1 ] 

I-- Expression 7 79 =" Expression =f 


The Set Constructor expression is used to Guild sats from their 
members. The form "Expression T9 Expression’ will include alt 
members of the set bounded by the two expressions. If the first 
axpression is greater than the second it denates an ampty sete 
Note that set members are declared in ascending crder. 


Examptes 
DECLARE 
NUMERICS CHARACTER_SET> 
ALPHAS CHARACTER_ScT>» 


NUMERTCSS= C*0%> 81%, "2% — F5% op MH r "Hy WH KFT > NBM» 
ALPHASs= C*A" TO "I> "3" TO "Re 857 TH "2795 


Example: 
SET STATES = INITIAL» MIDDLE» FINAL? 


DECLARE 
STATE_SET STATES» 
STATE MEMBER OF STATES3 


STATE_SET s= CINITIAL 13 FINALI3 
WHILE STATE IN STATE_SET COMPUTE_STATES 


eb Tale Be 
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lo 
Is 


Assignment &xpressi 


-—- Selector -_—- 2 2 s= wee eauanane Expression sues ncen vaca | 


The Assignment Expression stores the value cf Expression into 
Selector and teaves either the value Cif *= is used) or the 
Selector Cif %*3:= 41s usad) as an operand for further eaxoression 
evaluation. 


Example: 
Is= ~-1i3 
DC FOREVER; 
ACTs= I+1) s:=]3 
IF [I = ARRAY_SIZE THEN UNDOS 
ZNO? 
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Case Gxoression 


]<eee2 , weeon] 


1 1 
==, CASE <*> Index Exoression <“— dF -ts= { es expression ===> 


i . 1 
jm- ELSE 7 Expression =] 


The Case Expression selects an Expression from a tist of 
expressions to be evaluated. The value of Index Expressian is 
used as an index into the List of Expressions. If there area N 
Expressions in the List the range is from 0 to Neite If the value 
of Index Expression is greater than Nel» the Exrression fcllowing 
ELSE wilt be used or a runtime error will de generated if <ELSE 
Expression> is not presente 


Example: 
Is= CASE X OF € X#1ls X*25 X#3% X#4 D5 


WRITE LINE CCASE I OF C*O%> "71% 5 "2%, 83" ELSE “73"))5 
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if Exoressijn 


>a ema nuwweoctean nwa wes anaes ae es ELSE : Expression saeanresnoeacan = j 


The If Exoression is used to select an Exoresston for evaluation. 


Example: ; 
A s= IF X<Y THEN X ELSE Y;3 


11/05/32 3714 


BURROUGHS CORPORATION COMPANY CONFIDENTIAL 
COMPUTER SYSTEMS GROUP 31000 SOL2 COMPILER 
SANTA BARBARA PLANT ; PeSe 2223 35193) 


Address Generator 


sacesacnewnmwese§ Selector tet ts ee ee assesses eesenesmascesesesa | 
| j 
I-- Tyoed Procedure Calt -=-1 
j { 
Y-~ Standard Function scrrer!] 
i 1 
jo7~ If Exoressiton -*<<=<eer-=] 
! 1 
Ie-- Case Expression s2e7e2-] 


A Standard Function or Typed Procedure Catl is considered an 
Address Generator if its result type 1s Referance. 


An If Exoression 31s considered an Address Ganerator if both the 
Expression following the THEN and the Expression following the 


ELSE are Address Generators. A Case Expression is considered to 
be an Address Generator if all elements of the Case Excression 
List are Address Generators. Note that the If and Case form of 


Address Generators are not adiowed in att constructs. 
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STANDARD PROCEDURES AND EUNCTIONS 


SDL2 orovides a seat of pradefined orocedures and functions to 
perform commonly required operations. 


The Identifiers are not reserved and nay be redeclareds, Ir which 
case the user declared name takes orecedencea over the oredefined 
Ones 


STANOARD EUNCTIONS 
Allocate Memory 


sene= ALLOCATE_MEMORY 7"= ( ==" Size e225) ) cteeresescen] 


Allocates Size bits from dynamic memory» and returns the starting 
address as a 24 bit value. It is the programmer's responsibility 
to maintain an active reference to this memory address at alt 
times. Once adl active references have vanished» the data may he 
swapped out if the memory is needed for other purovoses.e Notes 
nowevers that there is no mechanism for swapping the data back in 
from virtual disk once it 18s swapped out» nor is there any 
mechanism for freeing the virtual disk used to store the rolled 
out datae 


Example? 
DECLARE 3UFFER REFERENCE> 
REFER_TYPE COUFFER» BIT); 


REFER_LLENGTH C3UFFER» SUFFER_SIZE)> 
REFER_ADDRESS C3UFFER» ALLOCATE_MEMORY CBUFFER_SIZE)): 


Arcay sound 


Returns tha numoer of atemants in Array Veriaoslte as 2a 24 bit 
value. 


11/95/82 672 


SURROUGHS CORPORATION COMPANY CONFIDENTIAL 
COMPUTER SYSTEMS GROUP 8100 SDL2 CCMPILER 
SANTA 3ARJARA PLANT . PeSe 2228 351908) 


Attribute Valve 


sermw~ ATTRIBUTE_VALUE *2 €( 2° Attribute ** » ** Value 7" ) "1 
Attribute may be any fite attribute atlowed in a Get/Put 
Attribute statement. Value must oO8 a predefined mnamonic valua 


for that attribute. This function returns a fixed number which 
is the MCPtassigned number corresoonding to the attribute value. 


Examptes 
IF INFILEeKIND = ATTRIBUTE_VALUECKING»OTSK) 
THEN DISPLAY CPINPUT IS FROM DISK"); 


Base Register 


anew BASE_REGISTER | su ewan eer ana neeeenan ene nem neewwaencatana | 


Returns the absotute memory Location of the oase of the program's 
data space as 4 24 bit value. 


Binary 


en | BINARY = { oe Fxoression = ) ss anew eseraneneasecees | 


Returns a 24 bit value which is the binary representation ef 
Expression. Expression is assumed to D2 4 character string. 
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Binary Search 


meeen= BINARY SEARCH == € == First Element *~ » =" Key Field ===> 


>w~e== , = Expression -"7= » <= Elements = } ecesen wesc enweceeacuzc= | 


First itement must be an Addrass Generator and have 4 types of 
Record or Reference. It should be the first element of a 
structure whose elements area ordered by increasina key value. If 
First Element is a Recordsr then Key Field must be a field of the 
Record tyoe of First Element that wilt de used to compare against 


Expressione If First Element is a Reference variable» then Key 
Field must be a Reference variable whose address is the offset of 
the Key Fietd into First Element» and whose length and tyce 


reflect the Length and type of the key. 


Expression is the value of the key to be searched for. The 
length of Expression must be equai to the length of Key Field or 
unpredictable results may occurs Elements is an expression whose 
value is used to give the pound of the search. The element 
number (the First Element is 9) of the first element whose Key 
Field is greater than or equal to Expression is returned. 


This function should not be used if the elements to be searched 
are in more than one page of dynamic memory or are not in 
ascending ordere 


| 1 
je- BY -"* Expression =<! 


fuap Varisble must be an Address Generator. If Expression 15 
present Exoression i385 added to 3ump Variable» otherwise 1 7s 
added to é@ump Variable. The rasult is stored irto Sumo Veéeriable 


and returned.» (See also 3ump in STANDARD PROECESURES Section). 
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Character Table 


posers, teeee ! 


ceee- CHAR_LTABLE cee"2 € ceee= String  ceees )} ceeteeeei 


String should be a quoted string of characters» oor a bit string 
where every eight bits correspond to a nonwgraphic charactar. 
CHAR_TASLE will return a Character Set whose manbers are 
precisely those characters specified in String. 


zxampte: 


LTA» "OW » bi Haale "D> gi 
[™*xX*, ayer, a7", my, wy 


CHAR_TABLE C™ASCOE™) 
CHAR_TA3LE CPXYZ"%>» “*xyz") 


were CHR == C = Expression <2) setereeseccececcnccns| 


Expression shoutd be an integer vatue (Ceither bit or i § fixed). 
Returns a Single chéracter with the ordinal position = of 
Expression in the ESCDIC character sete 


Examptes 
CHR (aC13) = Ae 
CHR (193) = “A” 


Code Address 


meee= COCE_ACDRESS = (€ = Procedure Identifier 7 ) =I 


Returns the code address of Procedure Identifier as a 32 bit 
value. (See SDL2 S*MACHINE Product Specification for the fornat 
of a code address). 
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Communicate With Sismo 


mern= «6©6COMMUNICATE_WITH_GISMQ -- (€ wf Expression "7 9) 1 


Transfers controt to GISMO» passing Expression 42s 4a parameter and 
returning a value. See MCP Product Specification for formats of 
Darameters and values raturned. (See also Communicate 4ith Gisto 
in STANDARD PROCEDURES Section). (For MCP use only). 
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Convert 


wece- CONVERT == ( == Exoression == » sees" BIT taeceeenccenee-> 
! 1 
bo-> FIXED ------1 
1 
l-- CHARACTER ==1 


> ee une oee ease SS GQ enweneeseaoueseannst ae ) seseesecanawn nance wem wane ocaacaee = | 


| 1 
I-- » =" Group -ci 


Expesssion is converted to the tyoe specified» according to these 
rules: 


SIT to FIXED: Up to 24 of the rightmost bits are convarted. 
FIXED to e@ITs The result is 317€24). 


CHARACTER to FIXED: Leading blanks and sign are allowed. Up toa 
seven of the rightmost characters are converted. 


FIXED to CHARACTER: The result is eight characters. The sign and 
any leading zeros are not supressede 


BIT to CHARACTER: The radix = 2 ** Groud.e 
CHARACTER to 31T: The radix = 2 ** Group. 
Group is onty used with gITf to CHARACTER or CHARACTER to sit 
conversitonse It specifies tna number of bits in the bit string 
which correspond to a chéracter in the character string. Tha 


default Group is % Chexadecimai). 


Examples 
CONVERT C*772581%» FIXED) = = P2564 
CONVERT €9C3)75295 CHARACTER 4) = “LEAT 
CONVERT CACLILLILiads FIXED) = 27 
CONVERT C*132"%» SITs» 2) = 3(€2)1322 
CONVERT CT7L132%» BITr 4) = 9€4)1322 
CONVERT (C%2"%, 3IT) = 3€4)22 
CONVERT Ce4se 317) = QC4)FFFFFCQ 
CONVERT C745 CHARACTER) = 7=90C0004" 
CONVERT C20A03» CHARACTER) = "QAO" 
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Qata Address 


wece- DATALACDRESS =" ( == Selactor 72) seen eteeceecen] 


Returns the base relative addrass of Selector as a 24 bit value. 


Data Length 


ceee= DATALLENGTH == € == Salector =7  )  teemaseeccecene! 


Returns the bit Length of Selector as a 24 bit value. 


Qata Qffset 


Seres- CATACOFESET S= © Se Setector == Yo Sasser sees ess] 
Selector must be a record subfield. Returns the offset in bits 


of the specified"fietd from the beginning of the record. (For 
compiler use onty). 


Data Iyoe 


cores DATALTYPE == € os ) Selector s2) )  teeeeensecsceseee] 


Returns the type bits of Selector» right-justified in a 24 sit 
field. (€See SDL2 S“MACHINE Product Snecification). 
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Rate 


DATE 


Returns a string containing the 
CHARACTER). 


1s (MONTH> 


Formats: 


RECORD 


RECORD 


RECORD 


RECORD 


Decimal 


If Length 


gr eater 


esas * 


DECIMAL 


is specified» 

8 and a character string 
‘decimal representation of Expression wili o2 returned. 
is not specified» ] 
characters tong with ieading zeroes suppressed. 


than 24 oits» only the rightmost 24% dits will b2 used. 


l-- 
t 


j-=- 


JULIAN FORMAT 
YEAR BITC7)» 
DAY BITC9)=s 
MONTH_FORMAT 
MONTH BITC 4)» 
DAY BITCS)>» 
YEAR BITC7)> 
YEAR_FORMAT 
YEAR BITC7)» 
MONTH BITC4) » 
DAY BITC(5)>; 
DAY_FORMAT 
DAY BITC3)» 
MONTH BITC4)» 
YEAR SITC7); 
“=~ ( -*° Exprassion 


the 


saece JULIAN 
MONTH 
YEAR 


JAY 


of 


result 


Length 


string 


, i Mel 


j{-- 


current date@e 


characters 


wilt be 


6-2 


COMPANY CONFIDENTIAL 
31€00 SOL2 COMPILER 


PeSe 


ait 
DIGIT 


CHARACTER 


a == Length 


it should be an Exsression oetweer i 
contatning 


ans moawenea =a ) 


from 1 
If Expression is 


2228 35159¢€8) 


} 


The default format 


“71 


and 
tha 
If Length 
to 3 
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Decrement 


sewem DECREMENT =" Decrement Variable sete etter ceca aeweasscnaas | 
j . i 
1- BY -°- Expression =! 


Decrement Variabl2 must be an Address Generator. Exoression (C1 
if SY Exoression is omitted) is subtracted fron MOecrement 
Variabpls. The rasuit is stored into ODecrenent Variénie and 


returned. (See also Decrement in STANDARD PROCEDURES Section). 


Dispatch 


weewe= DISPATCH == € ** Port Channel == » -= 16D Address *= ) =-] 
Port Channet should be an Expression whose value is the port and 
channel of the devicee I0D Address should be an Expression whosea 
value is the absolute address of the I/0 descriptor to be 


dispatched. {Sea MCP Product Specification for tayouts of the 
PortChannel field and I/0 descriptors). (For MCP use only). 


Dynamic Memory Base 


waee  DYNAMIC_MEMORY_3ASE 0 ce eetesene nme nc ence ce ccnc nn nssennnn] 


Raturns. tha offset from the dase register of the begjinring of 
dynamic mamory as a 24 bit value. 


Eetch Conmunicate Message Painter 


wrens FETCH_COMMUNICATE_MSG_PTR  taeeecnccc rescence rn nscessenn= | 


Returns RSeREINSTATE_MSG_PTR. C3ee MCP Product Soecificatior for 
Layout of the Run Structure and meanings of the values returned). 
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Eile Resident 


wnwe~w FILE RESIOENT "= € "= File Id “* ) Sueweseecesree] 
Fiie Id must be a Files Switch File» or File Pointers» whose Titte 
has previousty been sets» fhe file should have a hardware Kind of 


Diske Returns True if the file is resident on disk» and Fetse if 
it is note 


Hex S2guence Number 


eere- HEX_SEQUENCE_NUMBER ce eec et nn nnn ence nee c cen en sec essee==| 


Returns a 32 bit vaiue containing the sequence number of the 
currant line in hex digits. 


Leogth 


Returns a 24 bit value containing the tength of Expressior. Tf 


the type of Expression is character the value will be the numder 
of characters,» otherwise it witth be the number of bits. 


Linit Segister 


weowe LIaI T_REGISTER sume snst escent ent eae enaesnewonewaenenewoeecceoss | 


Returns a 24 bit value containing the base to tirit size in pits 
af the program. 


Name of Qay 


wens= | NAME_OF_OAY seeeeccccwsccten nc eneneee wc ccwnncenesccccns | 


Returns a 39 character string containing the nama of the day of 
the week. 
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Nudl 


a NULL owen ew awa eee senna Tea DHT AB Bem wee wees eeee = |} 


Returns a null character stringe Note that NULL can be used as a 
selector. 


Cat Indut Present 


cone- OETLINPUT_PRESENT cence ne sewn cnn ee ne cne nn enens nee enens| 


Returns a true value if there are any outstanding messages fro 
an operator accept. CSee *"AX* command in tha MCP CONTROL SYNTAX 
Product Soecification). 


Qrd 


ea--- ORD == ( =e Expression -*) )  teeeenenennnnneeee---] 


Expression should be a set mnembar. Returns the ordinal position 
of the nemoer within its parent sete Note that single cnaracters 
are considered to be members of any character set. 


Example: 
ORD CPA™) 
ORD CREC) 


193 


mou 
oS 
ae 


Assuming SET FLAG_COLCRS = RED» WHITE» 3LUcs 


Pack 


Exoression should be an unpacked decimal exoression. The zone 
bits will be stripped off» and the nacked deciwzal equivalent of 
Expression witt ba returned. The result is of type Bite 


Example s 


999123453 
91933 


PACK €"79012345") 
PACK CaF1lF OF 3a) 


ilodi 
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Processor Tine 


meee= PROCESSOR TIME tet ecc ect c enn cane cence cn cn cence cence] 


Returns a 24 bit value containing the amount of processor time 
that has accrued for this program in tenths of a Seconde © 


Pregeaa Switches 


mew ea as PROGRAM_SWITCHES sscawae saw anaes eset ete see newest eee eee | 
i J 
fe= € =~ Exoressiaon =" ) “91 “ 
Returns a 40 bit value containing the Program Switches» untess 
Expression 1s specified. If Expression is snoscifieds it must 
evaluat@a to a value between 0 and 9» and tha function will return 
a4 bit value containing that program Switch. 


Read Lock 


seeewr READLLOCK “= € == Selector =" » =" Expression se" ) ="-7] 


Expression is stored into Seiectors» and the original vatue of 
Selector is returned. If Selector is tonger thzen 24 bits» onty 
the rigntmost 24 bits of Selector will be returned. The type of 
the result is always Bit. 
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Search Linked List 


eames: “SEARCH LINKED LIST “= ¢ == Farst. £lepent += » “===> 


paces Keyl eens. = “Se=9r Expression ==> # =< Link “= ) =<e=e51 
i i 
I-- <> oe] 
t I 
I-- <td 
| ! 
I-- > 251 
1 i 
I-- <= oo] 
1 1 
I-- >= <1 


First Edement must be an Address Generator with a type of Record 
or Referencee If First Etiement is a Record» then Key and Link 
must bde fields within the Record type of the First Etlament. Tf 
First Element is a Reference variables» then Key and Link rust be 
Reference variables reflecting the offsets of the key ard tink 
fields within First Element. Link must be a 24 bit $field 
containing the base retative address of the mext record in the 
chaine doth Key and Expression should be a maximum of 24 bits in 
flengthe If Expression is Larger than 24 bits» only the rightmost 
24 bits will be used in the comparision» and they wilt te 
compared against the teftmost 24 bits of the Key field. 


A search is performed starting at First Element until either the 
relation is trues or a link of all F's is encountered» cr the 
chain has linked back to tha first element. The setacted element 
13 returnad-, if no match was found an Address Generator with a4 
data address of att F*s is returned. 


Example: 


RECQRD INFO 


3ACK_LINK 2ITC24)> 
FORWARD_LINK  3ITC(24)> 
10 BITC20)> 
DATA 317TC100)3 


DECLARE FINST INFO>s 
CURRENT REFERENCE INFO, 


REFER CURRENT TO 
SEARCH LINKED _LIST CFIRST» 19 = PATTERN» FORWARD_LINX ) 


IF DATA_LADDRESS CCURRENT) = GFFFFFF 3 
THEN DISPLAY C™PATTERN NOT FOUND™)> 
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search SQL Stacks 


se2e- SEARCH_SOL_STACKS <= € == Lower == » =" Size == ) -"""-1 


Lower must be an Expression whose value is the base relative 
address which is the lower bound of the range to be seerched. 
Size must be an Expression whose value is the size of the range 
in bits. The descriptor stack is searched for a descriotor whose 
address is within the range. Ifa descriotor is fourd 1 is 
returned. If no descriptor is found 9 is raturned. 


SEARCH_SOL_STACKS is tntended primarily for the use of the memory 
management intrinsice 
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search Serial List 


wee-- SEARCHLSERIAL_LIST <= (€ = First Element ss--------> 


> sea wnweevacanananswae an naaesvaenmaannean ane 


= wsaaae cxoression eenuweewy 


j 4 i i 
j-- , = Key ==] J-- <> lt | 
1 i 
l-<- Z o-j 
i j 
j-- >» == | 
! i 
j-- g~= oj 
1 i 
}-- >= a=} 


First Element must be an Address Generator. If Key is specified» 
then First Element must be of type Record or Reference. if First 
Element 38 a Record» then Key must be a field within that Record 
typee If First Element is a Reference variable» then Key sust be 
a Reference variable whose address is the offset of the key 
within First Element. If Key is not specified» then First 
Element may be of any constant tlength type and the complete 
element will be used as the kaye 


Elements is an Exoression describing the bound of the search. A 
serial search is performed starting at First Elerent until either 
the relation is true or the end of the table is encountered. The 
element number (CFirst Element is 0) of the selected element is 
raturnade If no match was found Elemants is returned. 


Example: 


RECORD JO3_INFO 
JO3_NQ: 31116) 
NAME CHARACTERC30) 
PRIORITY BITC4)3 
DECLARE JOBCMAX_J08S) JOB_INFO> ; 
I FIXEOS 


IT 2= SEARCHLSERTAL_LIST CUO3C9)» JOB_LNO = THIS_JN3» MAX JO35S)> 


IF I = MAK _JO985 
THEN DISPLAY €"J08 NOT FOUND"); 
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seguence Numger 


ences SEGUENCE_NUMJER «steer ener en ec cwc meen eterennceteeccren==| 


Returns an 8 character string containing the vatue of tha 
sequence number of the current source line. 


shift 


co--- SHIFT == ( == Expression -- » -- Shift Factor -- ) ----1 


Returns €xoression shifted the number of bits specified by Shift 
Factore If Shift Factor is positive» Expression will be shifted 
to the teft by concatenating Shift Factor bits of zero onto the 
right. If Shift Factor is negativer Expression wilt be shifted 
to the right by truncating the rightmost Shift Factor bits. For 
a bit values this is equivalent to multiplying by 2 raised to the 
Shift Factor power. 


subbit 
ere=- SUBBIT -- (€ -- Expression ** » 2 Offset c12r"=> 


i 1 
b=-- 3» == Length <«-!] 


Expression is assumed to oe of type Bite: Returns a sudfield of 
the valua of Expression starting at Offset bits for Length bits. 
If Langth 18s not present the length is calcutated to he the 
remaining Ditse Bits are nunbered from Left to right» starting 
with zero. The result will always have a type cf site 


CSUBBIT may be used as an Address Generators in which casa 
Expression must be an Address Generator). 
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aubstr 


semee SUSSTR @=S = Expression: = «© ““* “Offset ss" =s 50 


1 
i-- 6 07 Length ==! 


Expression is assumed to be of tyne Character. Returns a 
subfield of the value of Expression startinjz at Offset cnaracters 
for Length characters. If Length is not present the tencth is 
calculated to be the remaining characters. The result will 


always have a type of Character. 


CSUBSTK may be used as an Address Generatore In which case 
Expression must be an Address Generator). 


Test 


For compiler and interpreter debugging only. {See also STANDARD 
PROCEDURES Section). 


11/95/32 6°13 


BURROUGHS CORPORATION © COMPANY CONFIDENTIAL 
COMPUTER SYSTEMS GROUP | 31090 SDL2 COMPILER 
SANTA BARBARA PLANT PeSe 2228 3519(8) 
Tine 


asuwawe TIME see ews nee e neces see e nen ees sewsswsenetecenwenaewne sen ase | 


I-- ( se" COUNTER cee 5 one BIT eeeneeen- ) <-] 
i i 
I MILITARY <1 I= DIGIT ---"-1 
! 
1= CIVILIAN =] I- CHARACTER 1 


Returns a string containing the current time of day»j The default 
format 13 CCIVILIANs» CHARACTER). 


Formats: 
RECGRO COUNTER_FORMAT 
TENTHS BITC 20)>3 
RECORD MILITARY_ FORMAT 
HOURS BITC(5S)» % 24-HOUR CLOCK 
MINUTES BITCS)» 
SECONDS BITL6)» 
TENTHS BITC 4)3 
RECORD CIVILIAN_FORMAT 
HOURS BITC4)>» & i2*FOUR CLOCK 
MINUTES BITC5)-p 
SECONDS 3ITCo)> 
TENTHS BITC4) >» 
AM_OR_PM CHARACTER 2)> % "7AM" OR "PM" 
Jinerc 


ween TIMER steerer tween seen nce ee cc nnne- erceceee we cenceeeenn] 


neturns a 24 bit walue with the current satting of tne herdwarea 
Time Registere 
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Todays _Qate 


meow aes TOODAYS_DATE sun awn nena nen eee memes eee en enw enwasaeeaacaes | 
Returns a 17 character string containing the date of compilation 
of this programe 

The fornat of the string is: 


RECORD TOCAYS_DATE_FORM 


MONTH CHARACTERC2)» & 01 TD ile 
SLAQH 1 CHARACTERCLI» *€£ LITERALLY "/" 
DAY CHARACTERC2)» & 91 TO 31 
SLASH_2 CHARACTERCLI» & LITERALLY "7" 
YEAR CHARACTER({2)» % 00 TG 99 
FILLER CHARACTERC1L)»® &€ LITERALLY " * 
HUUR CHARACTERC2)» & OL TO 12 
COLON_12 CHARACTERCL)I» << LITERALLY "2" 
MINUTE CHARACTER( 2)» 2 00 TO 59 
FILLER CHARACTERCL)» % LITERALLY * * 
AM_PM CHARACTERC2)5 X LITERALLY "AM" OR "PH 
Unpack 


ceces UNPACK == € 22 Expression “= )  ceeeseeneescrces--i 


Expression should be a packed decimat exprassione Tne urovacked 
equivalent of Expression» with the zone dits filled ine will be 
returnede The result is of type Character. 


Example 3: 


"12345" 
“1099" 


UNPACK (€3123452) 
UNPACK (31004) 
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Wait 


meres WALT tee c ener eee n een cw nn eens seen eeccccens (0 eeecernn> 


1 i 
te= C€ == Start Position == ] <<] 


><-- | tee wen ween wwe ween e ee eee eeee eeceee- were=> 


] 1 1 
i im WHEN wo? Exprassion =7] 
j 


I 

| 

} 

i peer eer ese eee se eec eee eesesceaeecocoseaccece | 
i = ! 
bo @ TIME TENTHS. “em cf ==) Tents <<.) - Sees secre ese r=-= 1 
i ! 
b=" QOT_INPUT_PRESENT ec nencnn nn cnn nn nen c en eneennee sj 
I i 
Pes ‘0G OO. COMPLELE. “Sse Sees Sea Se Sere eee Sea See Saiee | 
1 | 
bem READ CON Se Ee. 1d) tease es ese ees esse SSeS eee 
i j ! ! 
i {- £€ = Member = J] =! I 
| | 
ber WLR AN eo 2S vee: Id) Ses eseeee8 see eee e= Se 
i I ! | 
{ 1- € = Member - J] @1 ] 


l-= Q_WRITE_OCCURRED s-- € -* File Id == ) ceeceee= <---] 


The orogran wilt be suspended until one of the wait events 


pecomes truee The value returned is the ordinal pasition of the 
avant in tha wait event list Cfirst is 0). Start Postion can be 
used to soecify which event in the List to test first. The 


default is to start at event 0. 


If WHEN Expression is present the event will be included ir thea 
wait list only if expression yields a true result» nowever a null 
event will be inserted in the list to maintain the crdinal 
position of the events. 


If TIME_TENTHS 15 soecified»s it nust be the first event in the 
List. 
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Extended Arithmetics 


wewee X_ADD erere € == JDperand_1i =~ » == Onerand_2 =" ) wzer-2] 
t j 
t=-. X.SuU8. ==) 
I 1 
fe= X_MUL ==] 
! 1 
i= XD1y: "1 
! 1 
b=" X.NC0. ot 


The extended arithmetic functions perform extended precision 
arithmetic» where either the operands or the result are taonger 
than 24 bitse No stgn analysis is performed. If doth cperands 
are not the same length unpredictable resuits may occur. 


X_ADD adds Operand_1 to Operand_2 and returns the result as type 
Bite 


X_5U3 subtracts Operand_2 from Operand_1 and returns the result 
as type dit. 


X_MUL multiplies Operand_1l by Onerand_2 and returns the result as 
type sit. 


X_OIV divides Qoerand_1 by Operand_2 and returns the result as 
type 3it. 


X_MCO moduio divides Ooerand_i by Operand_2 eénd raturrs the 
result as type 8ite 
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STANDARD PROCEDURES 


-_— ACCEPT a) rf =e Destination —- y sw ecewe emer cena | 


Jestination must be an Address Generator. The program wilt he 


suspended until the operator responds with an AX mess3g2 an the 
GODT. The message entered by the operstor wili be reed into 


Destinations and then program execution will be resumed. 


Bumo 


werer 8 EUMP == Bump Variable ss ese set eenereeenweacesesecnceea | 
1 i 
Im-- BY =" Expression <==! 


Sump Variable must be an Address Generator. If Expression is 
present Expression is added to Bump Variable» otherwise 1 is 
added to 8ump Variable. The result is stored into Bumo Variable. 
(See aiso 3umo in STANDARD FUNCTIONS Section). 


meres CALL mo C seme tenescssesecnnscene= Code Address "* ) s2-"1 


J 1 


ee ot ett Me 


i 1 1 4 
p= seo Paran <s" ¢ S291 


Performs an indirect call. Cod2 Address nust generat? a 32 dit 
value containing the code address to be called {See S3DL2 


S*MACHINE Product Specification for format of a code address). 
} 


Att parameters will be vassed dy reference» not by value. array 
parameters are not allowed. 


(For OMS use only). 
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Character Eqil 


m= CHARACTER_FILL == € *= Destination =~ » =" Expression *- ) =] 


Destination must be an Address Generator. The leftmost 8 bits 
(first byte) of Expression will be used to fill Destinatior. 


Communicate 


cos-- COMMUNICATE =" € ** Expression -* )  =seaee2e%- cost 


Transfers control to the MCP passing Expression as a parametear. 
(See MCP COMMUNICATES AND STRUCTURES Product Specification for 
format of parameters in 4&4 communicate). 


Communicate With Gisxe 


mewrewm «COMMUNICATE WITH _GISMO -- € f- Expression -" ) =] 


Transfers controt to GISMQ passing Expression as a parameter. 
(See MCP Product Specification for formats of pérameters. See 
also Communicate With Gismo in STANDARD FUNCTIONS Section). (For 
MCP use only). ; 
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Counite Card Information 


COMPILE _CARD_INFO 


Destination must be an Address Generator. 
into Destination 


program is returned 
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Ped. 


- ( ==. 


Destination -=- ) 


RECORO COMPILE_CARD_INFO_FORM 


QBJECT NAME 


EXECUTE TYPE 
& O1 = execute 
% 92 = compile 
2 03 = compile 
% 04 = compile 
2 05 = compite 
% 06 = go part 
% 97 = go part 


COMPILER PACK IOENTIFIER 


INTERPRETER NAME 
INTRINSIC NAME 
PRIORITY 

SESSION NUMBER 
JOB NUMBER 


COMPILER MFID ANDO FIO 


CHARGE NUMBER 


CHARACTEXC 30)» 
CHARACTERC2)>» 


and go 

for syntax 

to library 

and save 

of compiie and go 

of compile and save 
CHARACTERCLIO)» 
CHARACTER ( 30)» 
CHARACTERCLO) >» 
CHARACTERC2Z)» 
CHARACTER(C5) > 
CHARACTER(C5) >» 
CHARACTERC20) » 
CHARACTER(7)>» 


FILLER CRARACTERCL)» 
DATE AND TIME COMPILED SITC36)» 
FILLER BITC4)> 
USERCODE CHARACTERC10) » 
PASSWORD CHARACTERCLO) >» 


PARENT J03 NUMBER 


PASENT QUEUE IOENTIFIER 


LOG S$P0 


Datacomn Initiate 1/90 


DC_INITIATE_{0 <= 


> eae , =: 


I9 Descriptor Address 
descriptor which 
Channal. 


I0 Descriptor Addrass 


will be inttiated oan 
CSee MCP Product Specification for more 


CHARACTERC4)» 
CHARACTER(C29)> 
CHARACTERCL); 


i == Port = » == Channel 


e@ =e ww ) 


the soecified 


2228 351908) 


Information about the 
in the following format: 


=a => 


must be the baserwretative address of an [3 
Port 
information). 


and 
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Decrement 


wee PNECREMENT == Deacramant Variable eeecet eres sensecncannenccan | 
l { 
i-- BY == Exnoression 71 


Decrement Variable must be an Address Generator. Expression (1 
if BY Expression iS omitted) is subdtracted from ODecrement 
Variable and the result 1s stored into Decrament Veriabdtle. (See 


also Decrement in STANDARD FUNCTIONS Section). 


Disable Interrupts 


enee- DISABLE_LINTERRUPTS sooner wenn cence enc nnn nen ecnensecnne=i 


Atl interrunots will be disabled until an ENABLE_INTERRUPTS is 
executed. (For MCP use only). 


Disolay 


SeS=2 DPLSPLAY. @2. £8" Ee pression e238 ssesssees ee <sesree= =. ore] 
H t 
P= » *- CRUNCHED --1 
Expression will be printed on the ODT. If CRUNCKED is specified» 


the MCP wifdt detete atk trailing dlanks and substitute ene dtlank 
for each occurrence of multiple embedded blanks in Exoression. 


Qump 
om ae DUMP sansa anas sens ten ene antes swe eww anwes eases mean sasaeae | 


Generates a memory dump of the orogram. 


gSnable Interruots 


eece-  ENABLE_INTERRUPTS cece ec n wan nee nnn ccewenencwec ne cneen=] 


If interrupts are disabied they will be erabled and nornal 
processing of interruots wildt continue. (CFor MCP use onty). 
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Error Communicate 


mmee= ERROR_COMMUNICATE === € == Number cosccecenseneseees ) --4 
i 
I-- » -- Msg --l 


Transfers control to the MCP» using Number to select the 
approoriats rurctige error nessagjgee If Msg 18 cresentr then the 
message text will also oe passed to the MCP. 


Fetch 


wane an me FETCH -—-— ¢ == 19 Reference =: Py sesame noes ama ae > 


>eerr~ Result Descriotor == » == Port Channet <== >} wse2-] 


10 Reference must be an Expression whose value is the reference 
address of an [/0 descriftor. Result Descriptor must be an 
Address Generator. Port Channel must be an Address Generator. 


The Standard Procedure FETCH fetches the result of an I/93 
operation. If there is 4 high priority interruote then that 
interrupt wilt be reported. Otherwise» if I0 Refererce is 
nonzero then onty an tnterrupt on an 1/0 déscrinotor with that 
reference address will be reported. If not found then the first 
interrupt to occur will oe reported. The port and channel number 
will be stored into Port Channel and the address of the result 
descriptor wilt be stored into Result Descriptor. 


(See MCP Product Specification for more information on interrupts 
and [/0 descriptors). (For MCP use only). 


Ecreez? Progran 


a. FRCEZE_PROGRAM senses ce nate ee sass ewan eanaseaseanssaaneaa | 


This orocedur? prevents the oprogram fron being moved to 4a 
different memory locations» or from deing rolled cut of memory. 
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Halt 


cesss HALT o-= (of) Expression <2) ) settee eneseseeesnn] 
The machine witt halt with 21123 displayed in the L register and 


the low order 24 bits of Expression disptayed in the Tf recister. 
CSee SOL2 S"MACHINE Product Specification for more information). 


Hacdware Monitor 


cere HARDWARE MONITOR <= (€ == Expression <= ) ssee%2""1 


See SDL2 S "MACHINE Product Specification or 31000 PRCCESSOR 
Product Specification for more information. 


Message Coynt 


enmem= MESSAGE_COUNT == ( -* File Id -= » == Destination *- ) ==-14 
File Id must be the name of a queue files and Destination gust be 
an Address Generator. The numoer of messages in the queue will 
be returned as a fixed numder into Destination. If File Id 


refers to a queue file family then an array of vatues» cne for 
each family members» wilt be returned tnto Destination. 


Refec Adgress 


eser~ REFER_LACDRESS *= € =" Referent =" » *7 Expression =* ) =-1 


Referant nust be a Reference or Pointer Varitable. Expression 
will b2 stored imto the address part of the descriptor for 
Referent. 


Refer Length 


“sse0 REFER LENGTH = C-"" Refterant. -=. 8 "" txeression “2: =-s4 


Referent must pe an untyped Reference variable. Exoression will 
be stored into the tength part of the descriptor for Referent. 
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Refer Iyge 


Se" HEFERL LYE See £ ==> Referent “-= 2. === Sxoression == 2 ==] 
J i 
fewer= SIF s+} 
1 H 
t=" CHARACTER 1 
Referant aust be an untyped Reference variable. The type part of 


the descriptor for Referent will be set to esither Expressions thea 
predefined type of SIT» or the pradefined tyoe af CHARACTER. 


Reverse store 


j< «cue > aven j 


1 1 
wen REVERSE STORE == €( ss" Setector «77 » 2- Expression 7-7 ) <7! 


Multiple store operations will be generated» evaluated from teft 
to righte : 


Examples: 
REVERSE_STORECAsB eo Ce ids 
is the same as 


Azt= Bs 98= Csr C2= 15 


pave State 


emee=  SAVELSTATE teers eee n cence nen n nnn cnn e cnn ence ence eens] 


The current state of the interpreter wilt be saved in the Run 
Structure Nucleus. (For MCP use anty). 


Jest 


oe TEST eeenesnwacaecvewn nee son ececesatowes ener ses eetoeonswesess= | 


For compiler and interpreter deonugging oniy. (See also Test in 
STANDARD FUNCTIONS Section). 
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Thaw Prograa 


a ee THAW PROGRAM eswscoenanet en ewaen een eee em nee e em en ean en aeaceae j 


This orocedure unfreezes the program» and allecws it to be moved 
or rotied out of memory. [It does not force the program to be 
rolled out. 


Icaonstate 


ewere=> TRANSLATE == € =* Source ** » == Source Size == » 229""==> 


>=" Table -- » == Destination Size =" » =" CLestination -7* ) =°1 


Source and Destination must bea Address Generators. Source Size» 
Table» and Destination Size are Expressions. Source 1s éssumed 
to consist of items of Source Size Cin bits). Table and 


Destination are assumed to consist of items of Destination Size 
Cin bits). Each item in Source is used as a subscript inte Taolte 
to obtain an item which is placed into Destination in the same 
ordinal rosition as the source. 


4 


Exampie: 


DECLARE 
SITSTRING BIT (36)» 
CHARSTRING CHARACTER (9)» 
TRANS_ TABLE BIT (16 * 38); 


TRANS_TABLE 2= *"O012345672S5ABCDEF™; 

3LITSTRING t= GF206541124;3 

TRANSLATE CBSLISTRINGs 4&4» TRANS_TASLE» 8» CHARSTRING)>? 
DISPLAY C*B3ITSTRING = a" CAT CHARSTRING CAT SQ") 


The above example converts a bit string into the equivalent 
hexadecimal character string for disptay purposes, 
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wen-- ZIP -- ( 
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The Zip statement allows the program to pass control instructions 
to tha MCP. Expression should generate a character strinc whose 
value is a vatid MCP controt command as docurented in the MCP 
CONTROL SYNTAX Product Srecification. 
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INPUT/QUTPUT 


FILE DECLARATION 


| Ce eew owe nsecesemessass fg Otte es sesacesecesceea | 
J ] 
one FIL, 798) Fite Nate. s22ssess esse ss=5—s= Ses eae seas Sass Ss * oe | 
| ! 
] <2 es" x Sa menee { i 
j i 1 i 
i-= €( °2"" Fite Attribure =" 3 "1 
A File Declaration will generate an FPB with the default file 
attributes modified by the attribute list. The File Name» when 
used in an Expressions witli yield its FPB number (the first file 
declared will be 0). 
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Eile AttriQutes 


The following list of file attributes are those that are atlowed 
in File Dectarations. 


Where an attribute requires a Scotean vaiuer» the value must be 
TRUE or FALSE. Where an attribute requires an integer or string» 
the value must be a constant. Most attrisSutes which exnect 
mnemonic vatues witt also allow an integer constant. HOwever® p 
caution should be used whenever substituting an integer for 3 
mnemonice since the integer vatues itn the File Oeclération 
statement are different from those in the Get/Put Attridute 
Statements. 


xe fer to the MCP COMMUNICATES AND STRUCTURES Product 
Specification or the MCP CONTROL SYNTAX Product Specification for 
a more detailed explanation of the 31000 file attributes. 


meres ACCESSMODE seetere = smeee SERIAL teeters rcescccseccon] 
\ | 1 1 { 
i t-- RANDOM c2ereree=] i 
1 1° i i 
i I= DELAYEDRANDOM <-=1 l 
i i 
I-- AREABLOCKS swes"e"=2 = se2"2= Integer wsessesceccceces=] 
1 i 
f-- AREALENGTH steeer= = seee= Integer tet stsceersresse=] 
| i 
<= AREAS cewwwrososesrs = seers Integer set etstsccecersee] 
I i 
b-- AUDITED soeewerses= = se22= Joolean ttt ettsssescor=s] 
i { 
b=- BACKUPKIND seeeees = seere DISK se ee swe rceceneccena| 


open 
Cd 


i 
b-- TAPE <==! 
1 
b--) EITHER == 


BACKUPPERMELITED. == = sen==. UONTCARS  SSSee8 42" 995" 
I ! 
}-~ CONTSACKUP =] 
| 1 

MUSTBACKUP ==] 


an wien sw at ss ext 4 a san 


SLOCKSIZE ey ee on = tea Integer ec cts til alla ewecwcoee j 


ALGCKSTRUCTURE “_ = a hae ioe aes FIXED eeaenanuevawenuvauwaceneae ] 
1 i 
Je~ VARIABLE oti 


— om oe ee oe ee ee ee ee 
a 
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v 
je- BUFFERS ---------- 
i 
le- QDENSITY ceereee--- 
i 
i 
i 
I-- DEPENDENTSPECS === 
[== OIRECTION <-------- 
1 
I= EXTEND --eeeee---= 
I-- EXTMODE  --2--e--"- 
i 
i 
i 
\ 
i 
l-- FAMILYINDEX <s2--= 
[== FAMILYNAME sa-2e-= 
i 
I-- FILEKIND cecees--- 
i 
i 
I 
i 
i 
J-= FLEXIBLE =soeeees- 
l-- FOOTING s--"--<---- 
I=" eoecne-- 


FRAMESTZE 


I-~ HOSTNAME 


BP1209 


Z-3 
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d 
I 


| 
saseanaeneesecanawaaaa | 
i I 
BPI5S56: 2e=1 
] 

OPISC9. -<-s4 
! 

BPI1600 <=] 
i 

aP{16250 --1 


Integer 


Boolean 


meee eee eOeaeaeseaeeaeasa = 


! 
REVERSE 1 


FORWARD 


Boolean 


i 
ASCII <-<=-~-4 
1 
Bol. “e874 
1 
BINARY aiae | 


EBCOIC 


Integer 


String 


DATA a aa i aa eh a ea 


Bene ~eeettess 
INTRINSIC ===1 
INTERPRETER e 
PSEUCO_CARD “| 


a ee ae ee ee Ye ee de ee ee ee ee ee eee inte 


asa cw manassanacaas | 


Boolean 


susan anwoanmreoenn ane al | 


Integer 


l 


ean anwowanaweanaa = | 


! 
¥ 


Integer 


String 
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, 
; 
I-- INTNAME 9 ceeese-ee- 
I 
I-- INVALIDCHARS -==--- 


_ =. “INDO Sa Une eee nana ea 
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String seepeeenseonceresn 
REPORTALL 9 cwewescercccese ; 
REPORTFIRST ae 
DONTREPORT sy 


DATARECORCER =----e-eee-- 
SiG Beeeeeeeeees 
oot eee 
I 
PAPERPUNCH <----"-1 
PAPE RREADER ee 
POR iseacsessesse 
PRINTER ee 
PUNCH see eeeeues, 
PUNCHBO eer 
PUNCH 96 Seseneees, 
GUEUE Seeneeceees 
READER ree 
READERSORTER pees 
READERSO ceeeeees 
READERS eee 
REMOTE sphenseeset 
TAPE Seoeleasacei 
TAPECASSETTE ee 


TAPE7T oo seeeeceese- 


TAPE? ceeccencee=] 


ee ee ee ee ee ee ee ee ee ee ee ee ee 
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“= MINRECSIZE 


v 

i 

j-> LABEL = = ee aaa a 
j 

i 

i 

j 

i 

| 

! 

fe=. LINEPORMAT <<s9°2> 
1 

fe" LOWERMARGIN <eerre= 
i 

$@2? MAARECSIZc. <Areee= 
I 

$e MAXSUBEILES “©=<<*- 
i 

j 

1 


| 
j-- MYUSE. ne Seana unansaa ses 
i 
I 
! 
i 
I 
i-- NEWFILE ssen ananunnas 
i 
i 


== OPENNOREWIND 


I-- OPENONSEHALFOF --=- 
ice OPENWITHPRINT <---> 
ie OPENWITHPUNCH -=--- 
ie OPTIONAL <cse----=- 
es OTHERUSE s<-"-"-0- 
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V 
i 
ESCDICLASEL 22707 =-8 aa a i 
j i 
ASCIILASEL 2-7! I 
| i 
OMITTED ws«eee0 { i 
j 1 
OMITTESEQF ---1 i 
{ 
S00L8af “sss eee s26e8 <== { 
] 
Integer “cess 9ste essere 1 
j 
integer Ss ss4e"> Sse ess I 
| 
Integer <= a aeceaee lial | 
1 
Integer <«---%- id ac a at | 
} 
Strang <cSessees-ss¢ S254 =] 
] 
19 eS euanswanaoaondaunaaana es @ asoce j 
1 i 
in: -2==4 Hy 
1 j 
OUT --1 j 
| 
Sonlean SKA ens eeet reese i 
! 
BSootean eauaunaannea seaaveee | 
j 
3001e8an ="s<"se+<= adele | 
1 
Boolean “ses e4"e SASS esiaia | 
j 
POOR Ban. “SSS eSt ates ees i 
j 
Soolean seeerrr= teres s='s I 
1 
10 aseaenwrnacanecoane = eea eeaannea { 
| 
IN omsaoccen|] 
i 
OUT 


SECURED 


| 
8 
A 
4 
| 
a 
— 
i ~~ ee ot ae ah oe 
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oe PAGESIZE 


l-~- PARITY 


j 
{ 
I 
je- PRINTOISPOSITION = 
i 
! 
1 
bet: “PROVECTION “=e2rer= 
I 
i 
I 
I 
i 
1 
j 
f-- QFAMILYSIZE woe" *= 
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Qefgult Eile Attributes 


This section tists the defautt values which are used cy SOL2 when 
an attribute is not specified in a Fite dOeciaration statement. 
The attributes which are not Listed here default to zero or 
blanks» depending on their tyne. 


ACCESSMODE 


SERTAL 


ul 


AREALENGTH blocksize * 1090 

AREAS = 25 

BACKUPPERMITTED = DONTCARE 

BLOCKSIZE = maxrecsize 

BUFFERS = 1 

FRAMESIZE = 8 

INVALIDCHARS = REPORTFI&8ST 

KINO = DISK 

MAXRECSIZE = 80 or $6 if card devica 
132 if printer device 
1920 if remete device 
180 in atk cther cases 

MYUS< = IN if input only device» 

OUT if output onty devices 


Id in att other cases 


NOEWFILE = TRUE if printer device» 
FALSE in att ather casas 


SAVEFACTOR = 1 
TITLE = internal fite name 


VOLUMEINDEX = 1 
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SWITCH EILE DECLARATION 
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-- SWITCH_LFILE --- Switch File Name -= ( *** File Name == ) -*-1 


A Switch File ODectaration allows a group of files to 62 
selectively accessede A Switch File Name with a sudscript tay 45e 
used anywhere that a File Name is allowed» except within a Switch 
File Declaration. The files are nuabered from © to Neils where N 
is the number of files in the switch file list. If any of the 
files have a kind of PORT or REMOTE» then ait the files in the 
List must oe of kind PORT or REMOTE.” 


Examples 


FILE USERI CKINO=DISK)>» 
USER2 CKINO=DISK)>» 
USERS CKIND=OISK)>» 


SWITCH_LFILE USER_FILE CUSER1» USER2» USERS); 


DECLARE 
USER FIXED: 


» 


OPEN USER_LFILE €0)>5  & opens file YSER1 


FOR USER s= 0 TO 2 
WRITE USERLFILE CUSER) CBUFFER)$ Z writes to atl three files 


CLOSE USER_FILE €2)3 2 closes fite USER} 
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INPUTZQUTPUT STATEMENTS 


Atl Input/Output Statements operate on a File Id. A File Id may 
be any File» Switch Files or Fite Pointer. 


The SOL2 Input/Output Statements map directiy onto tne MCP file 
handling communicates. Refer to tha “CP COMMUNICATES ANO 
STRUCTURES Product Specification for a more deteiled exgetlenation 
of each [7/0 communicate. 


For the purposes of random [/0» record numbers are zerazrelative.e 


Qn Branch 


Some of the Input/Output Statements allow On @ranches to be 
specified. An On 38ranch is used to indicate that the progras 
wishes to handle the associated error condition instead of 
letting the MCP nandle it. If the Condition specified in the Qn 
Branch is true as a result of executing the [Input/Output 
Statement» then the Statement following the ON Condition will be 
executed. If the Condition is false» then the Statement will be 
ignored. More than one On Branch may be specified in a singla 
Input/Output Statement» atthough only one Condition can be true 
after executing the Input/Output Statement. 


Examptes 


READ_OK 3=:;TRUESs 
QPON INF ILE>s 
ON FILE_MISSING Od; 
DISPLAY CTFILE NOT FOUND™);3 
READLOK s= FALSE>s 
cNDs> 
ON FILE_LOCKED OO; 
DISPLAY ("FILE IN USE 3Y ANOTHER PROGRAM"); 
READ_OK s= FALSE? 
END? 


WHILE SEAO_OK 003 
READ INFILE CS8UFFER)3 
CN EOF READ_OK = FALSE? 
WRITE OUTFILE (C3UFFER)3 
END; 
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The Open Statement attows the programmer to explicitly open a 
file and to handtla error conditions. 


Note that alt open options snoultd be set before the ‘pen 
Statement is executed» using either a File Dectération Statemant 
or a Put Attribute Statement. For examples OPENONEEHALFOF must 
be set to True for the ON_SEHALF_OF clause to take effect. 


Examples 
OPEN SOURCE> 
ON FILE_MISSING SOURCE_PRESENT 3= FALSES 
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The Close Statement ailows a orogrammer to explicitly close a 
file and specify how it is to o2 disposed. 


Example: 
CLOSE SOURCE PURGES 
CLOSE NEWSOURCE LOCKs REMOVE? 
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The Read Statement allows a record to be read from 23 file. 
Buffer must de an Address Generatore 


Example: 
READ RANDOM_FILE (CKEY} CAUFFER)> 
ON EQF SAD_LKEY s= TRUE; 
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spacing may also de specifieds 


is written. 


Exampties 


EOF 


INCOMPLETE_19 


EXCEPTION 


Statement 
j 


Write Statement allows a record to be written to 3 file. 
and wiil be done after the Suffer 


WRITE LINE DOUBLE C*HEASING LINE™)> 


WRITE LINE>s 


The 


11/95/82 7-15 
COMPANY CONF ICENTIAL 
B1C00 SOL2 COMPILES 

PeSe 2228 3513(8) 


BURROUGHS CORPORATION 
COMPUTER SYSTEMS GROUP 
SANTA BARBARA PLANT 


22ace 
mem SPACE == File Id woreeteressessenmesr= Expression s***29> 
| ! i 
Im-- Td =! i 
i 1 
j-o- TO_EOF weecaews woe ew scoeaesea= } 
I i 
Pawseer non oen een anaes steam ae sane een anes wean anes asm ent ees ees aeeawe | 
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The Space Statement is used to skip over records in a sequential 
file. If TO Expression is used it must be a non-negative numbers 
and wiit position the file at that record. Exoression alone 


specifies the number of records to space from the current records 
with a positive value spacing forward and a negative value 
spacing backward. TO_EOF witt space the file to its currant end. 


skio 


SKIP File Id Td Cnannelt Number 


ski9 to tha 
Channel Numder 


The Skio Statement wilt cause the Lina printer to 


specified channel 
Must be a constant 


number on its carriage tare. 
ranging from i to 12. 


222k 

see “Seek: sere: Fite fd. Sere £ S= Expression: -: .] ss] 
The Saek Statement is used with random disk files to read 3 
record into the ASCP*s buffer area in preparation for a Read of 
that record. A Seek Statement performed inmediately before a 


Read Statement is t 


ess afficiant than just reading the record. 
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Put Eile Attrioute 


cer- File Id c9- 2 9 Attribute crest ese ce ene n ee eeenneeeene---> 
! 
l-- € -- Index -- ) ---1 


The Put Fila? Attribute Statement atlows an attritute of a fil? to 
be changed dynamicaily at runstine. Value can oe aitther 423 
predefined mnemonic for the attribute Cas snoecified in the File 
Attributes Section)» or an Expressione 


The following attributes are allowed. Attributes tarked by an 
asterisk must be indexed. 


ACCESSMODE FLEXIBLE PAGESIZE 
AREAACDRESS * FOOTING PARITY 
AREABLOCKS FRAMESIZE PRINTDISPOSITIOQN 
AREALENGTH HOSTNAME PROTECTION 
AREAS INTNAME QFAMILYSTZE 
AUDITED INVALIOCHARS QMAXMESSAGES 
BACKUPKINCE KIND REMOTEHEADER 
BACKUPPERMITTED LASEL REMOTEKEY 
BLOCKSIZE LASTRECORDO SAVEFACTOR 
BLOCKSTRUCTURE LOWERMARGIN SBPFILEKIND 
BUFFERS MAXRECSIZE SECURITYTYPE 
COMPRESSION «# MAXSU3FILES SERTALNO 
DENSITY MINRECSIZE STATIONSALLOWED 
DEPENJENTSPECS MYNAME Tithe 
DIRECTION MYUSE TRANSLATE 
EXTEND NEWFILE UPOATEFILE 
EXTMOQDE QOPENNOREWIND UPPERMARGIN 
FAMILYINDEX # OPENONSEHALF OF USER3ACKUPNAME 
FAMILYNAME JPENWITHPRINT VOLUME INDEX 
FILEKIND OPENWITHPUNCH WORKFILE 
FILENAME OPTICNAL YOURHOSTNAM4E * 


FILESECTION 53 OTHERUSE YOURNAME «* 
. YOURUSERCODE «* 


Note that the MCP expects a twenty character string with ne stasn 
for FILO NAME» instead of a name of the form afid/fide 


Examoles 
CASOS.-TITLE t= *"SOL2_ SRC/EXPRESSION ON SOL2"; 
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Get Eile Attribute 


een- File Id s25 20 te) Attribute sees ence ewer ence nee cneen] 
i 
I-- ( -* Index == ) +1 


The Get Fila Attrioute Statement returns the value of e file 


attribute. The value returned will ode either nuteric or 
characters» .as specified in thea MOP COMMUNICATES AND STRUCTURES 
Product Specification. Note tnat the ATTRIGUTE_VALUE standard 


function can be used to determine thea numerical eauiivalant of 3 
mnamonic attribute vatue CSee STANDARD PROCEDURES AND FUNCTIINS 
Section). 


The fotlowing attributes are ailowed. Attributes warked with an 
asterisk must be indexed. 


ACCESSMODE FAMILYNAME JPENWITHPRINT 
AREAADDRESS * FILEK INDO OPENWITEPUNCH 
AREAALLOCATED *& FILENAME OPTIONAL 
AREABLOCKS 

AREALENGTH FILESECTION OTHERUSE 

AREAS FILESTATE « PAGESIZE 
ATTERR FLEXI3LE PARITY 
ATTVALUE FOOTING PRINTOISPUSITICN 
ATTYPE FRAMESIZE PROTECTION 
AUDITED HOSTNAME QFAMILYSIZE 
AVAILABLE INTNAME QMAXMESSAGES 
BACKUPFILE NAME INVALIOCHARS RECORONUMSER 
BACKUPKIND KIND REMOTEHEADER 
BACKUPPCRYITTED LABEL REMOTEKEY 
BLUCK LASTRECORD SAVEF ACTOR 
BLOCKSIZE LASTSUSFILE SECURITYTYPE 
BLOCKSTRUCTURE LINEFORMAT SERITALNG 
BUFFERS LINENUM STATE 

CENSUS * LOWERMARGIN STATIGNSALLOBED 
CHANGEDSUGFILE * MAXCENSUS «@ SUBFILEERROR * 
COMPRESSION * MAXRECSIZE TITLE 
CREATIONDATE MAXSUBFILES TRANSLATE 
CREATIONTIME MINRECSIZE TRANSLATING 
CURFENT3LOCK MYHOSTNAME UPDATEFILE 
DENSITY MYNAME UPPERMARGIN 
DEPENDENTSPECS MYUSE NSEDATE 
DIRECTIIN NEWFILE USERBACKUPNAME 
DISPOSITION * NEXTRECORD VOLUMEINDEX 
EXTEND JPEN WORKFILE 
EXTMODE JPENNCREWIND YOURHAOSTNAME «& 
FAMILYINDEX * JPENONGEHALF OF YOURWYAME * 


YOURUSERCODE «* 
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Examples 


WRITE LINE € "SOURCE FILE = * CAT SOURCE.TITLE 25 
TF SQURCE.KINO = ATTRIBUTE VALUE CKIND» READER) THEN 
INPUTLFROM_CARDS s= TRUE? 
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SEPARATE COMPILATION 


SOL2 provides a mechanism for dividing a program into several 
units» each of which can de individuatly compiled. There are 
three types of units : Global units» Senarately Compiled urits»s 
and Independentiy Compiled units. These individually compitead 
units are tater bound together by the SOL2Z/3INDER» anc calls 
across unit boundaries are resolved. 


A Globat unit containing alt global data declarations and the 
outer toop of the orogram must be compiled (without syntax 
errors) prior to the compitation of any of the Separate units. 
The symbol table for ali globdatl declarations (Cexcluding 
procedures) is saved in the tnbound global coce file for Later 
use by the Separate units. 


When a Separate unit is compited» the compiler toads the symbol 
table froma the Global unit» making att globat declarations 
accessible to the Separate unit. <A Separate unit may not declare 
any global variables or files» but it may declare global types» 
constants» sets» records and defines which are accessible to any 
procedure in that unit. Note that compiler controt opttons and 
conditional compitation booleans set in the Globat unit will not 
affect any of the Separate units. 


Both the Global unit and the Separate units have access toa att 
global data dectared in the Global unit. In addition» they may 
call any Lexic level one procedure which is declared in another 
unit» provided the orocedur2 is identified by an EXTERNAL 
procedure declaration in tha calling unit. External procedure 
calls wilt be rasolved by the oinder. The binder with elso do 
any parameter checking which would have been done dy the compiler 
had the procedure been declared tocaily. 


An Independent unit is one which accesses no giobal data or 
external orocedures» and so may be bound with any Gtobdal uNTte 
An Independent unit may not dectare any globat variaoles or 
files» but it may daclare gtotal types» constantse sets» records 
and defines which are acceassidle to any procedure in that unite 


Each unit is attlocated one page tin the Segment Dictionary» so 
there is a Linit of 64 unitts to a program. The Global unit will 
always be allocated to Pége 0. 
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The following compiler control options are used when conpiling. 


uncound units. These options should aopear at the front of the 
input file» preceding alt conditional compilation statements» 


declarations and 2xecutable statements. The onty statements tnat 
can precede these ontions are other comoiier control statements. 


CREATE_ GLOBAL 


This is used to specify to the compiler that a Slobel unit 
is being compiled for tater binding with Seoarate and/or 
Independant units. 


USE_GLOBAL Cfile_nane] 


This is used to specify to the compiler tnat a Separate unit 
is being compiled for Later binding with a specific Giobat 
unite The symbot tabite from the Globdai unit will be toaded 
by the compiler for use by the Separate unit. 


INDEPENDENT 


This is used to specify to the compiler that an Independent 
unit is being compiled for tater binding with any Glooat 
unit. 


Ali Global» Separate and Independent ‘code fites! will be typed 
as SDL2 Unbound Code fites and widl not be exacutabdle. 


The SDL2/8INDER wilt bind together a singte Global unit and ane 
or more Separate or Independent units» producing an executable 
SOL2 Code _ fiie. The binder wilt verify that all units were 
comoiled with the same version of the compiler and that ail 
Separate units were compiled with the sane version of the Global 
unite. 


See the BINDER EXECUTION Section for a description of how toa 
execute the SOLZ/3INDER. 
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COMPILER CONTROL 


Compiter controt options aust be preceded by a singte or doundle 
doditar- sign €3 or £8)» beginning in column 1 of the source image. 
If a double "$$" js used» then the controt options are considered 
to be permanent» and widl be included in the new source file Cif 
one is requested). If a singte *3" ts used» then the control 
options are considered to o¢@ temporary and will not be irctuded 
in the new source file. 


CNG] AUTO_LSEGMENT (COefautlt = TRUE) 
The compiler will automaticatly break the program into 
seqments. The segment size is determined cy the 
AUTO_SEGMENT_SIZE option. 
Segment breaks wilt occur at the end of a procedure 
when the code size exceeds the size specified for 
AUTO_SEGMENT_SIZE. 

AUTO_SEGMENT_SIZE (Default = 20009) 


Specifies the segment sizes in bits for automatic 
segmentatiane 


Example: 


$8 AUTO_SEGMENT_SIZE 16000 


CNO] CLEAR_LOCALS (CDefault = FALSE) 
When TRUE the compiler will generates code to claar the 
local data space to zeroes upon procedure antrye» In 


addition» ali descriptors wilt be initiatized as though 
the S$INITIALIZE_REFERENCES option was sete 


CNO}] CUDE COefault = FALS®) 


When TRUE the compiler will List the code genarsated. 


CREATC_SLOGAL COefault = FALSE) 


Specifies to the conpiter that the Glooal unit of an 
individualtty conpited program is being compiled. 
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(NO] DEBUG <Option> 


This is for compiter debugging. Qotion may Xe either 
CHECKS» DUMP» DUMP_LSYMBOL_TASBLE» RECOVERY» SCANNERS 
SY483QL_TABLE» TYPES» or XREF. 


DYNAMIC_MEMORY Cdefautt = 0 or minimum of 2009) 


Specifies the amount of dynamic memory in bits. 
Dynamic memory is used for paged arrays. The default 
dynamic memory calculated by the compiler is sufficient 
for storing one nage of each gtodat oaged arrays» oalus 
one page of each tocal paged array in the Lexic Level 1 
procedure which requires the most dynamic memcry- The 
user can make a better estimate of the dynamic memory 
requirements based on the actual number of paged array 


elements that wilt be accessed at any one time. Nota 
that each memory tink requires 100 bits» and each page 
table requires 32 bits per entry. In additions 


approximately 200 bits are required as work spéce for 
the intrinsice 


ERRORLIMIT CDefautt = 100) 


Soecifies the maximum number of errors which wilt be 
allowed. The compnite will terminate when this limit is 
exceedede 


[NO] E€RRORLIST CDefautt = FALSE) 


When TRUE» the compiler will print the error messagas 
in a seoaratea error tisting file CERRGRS). 


FAMILY (Default = system disk) 


If a controt card fitea titte does not axplicitly 
specify a pack name» the pack specified in the FAMILY 
control option is used. The controt cards which altow 
file titles are INCLUDE» MERGE» NEWe and USE_GLOBAL. 


CNOJ INCLNEW COefault = FALSZ) 


When TRUE» the source images read in from an INCLUDE 
fila wilt be copied tao tha new source fila CNEWSCURCE). 
The INCLNEW option takes effect onky when the WNEd 
option is Spacified. 
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INCLUDE Clibrary fite titte) 


Specifies that a tliorary source is to be read in and 
compiled. The remainder of the source image may 
contain the library file titte. if no title is 
soecified» then the external name of the LIBRARY fite 
will be usade No other control aptions may follow tha 
$INCLUOE oarameters on the same compiler control image. 
Images from tha LISRARY file will be flagged sith an 
"I" in the output lListinge A tibdbrary file ay not 
contain an [NCLUOE statement. 


INDEPENDENT 


Specifies that an individuatly compiled unit is being 
compiled that does not access any globat data. The 
Independent unit created can be ocund into any program. 


CNO}] INITIALIZE_REFERENCES CDefauit = FALSE) 


“when TRUE» the compiter will generate code ta 
initialize atl referance variables to their declared 
type and tength Cif scecified) with an invalid address. 
Use of an uninitialized reference variable witl then 
cause a runtime Read or Write Out of dgounds error. 


INTRINSIC 


Specifies that an intriasic is being compiled. 


CNO] INTREINSICS_ALLOWED COefault = TRUE) 


If FALSE» any use of tntrinsics wilt be flagged as an 
errofe I f INTRINSIC is specified» then 
INT2INSICS_ALLGWED is automatically set to FALSE. 


[NO] LIST (Oefault = TRUE) 


Specifies if a listing is to ve produced. 


CNO}] LISTAMPERSAND (Default = FRUE) 


If TRUE» conditional compilation statemants deginring 
with an *&"* wilt oe inctuded in the listing. If FALSE» 
statements beginning with an *&* wiit not oe Listed. 
NO LIST overrides LISTAMPERSAND. 
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[NO] LISTOGLLAR (Default = TRUE) 


If TRUE» ait temporary compiler controt statements 
(those seginning with a singte *3') witt be included in 
the Listinge If FALSE» the temporary conpiler control 
statements will not be tisted. Permanent ccrpiler 
controt statements Cthose beginning with a double '"$3$*) 
are always printed» regardless of the setting of the 
LISTDOLLAR option. NO LIST overrides LISTOGLLAR. 


{NO] LISTHEX Cid chars] (default = FALSE) 


If TRUE» the code addr2sses on the output Listing will 
de printed as hex values instead of decimal values» and 
<id chars> will be used instead of the page number to 
preface the segment and offset. (For MCP use onty.) 


CNOJ CISTINCL (Default = TRUE) 


If TRUE, source images from an included library file 
will be Listed. NO LIST overrides LISTINCL. 


{NOV LISTCMITTED COefauit = TRUE) 


If TRUE» source images that are not compited because of 
conditional compitation witt still be listed. The 
omitted images will be flaqged with an “07 in the 
outout Listinge NO LIST overrides LISTOMITTED. 


MERGE Csource file titie)] (Default = FALSE) 


Specifies that the CARD file oe merged with the SOURCE 
file. The file tittle of the source file may be 
specified on the rest of of the source imagee If it is 
not specified» then the external name of the SQURCE 
file will be used. Images from the CARD file will ba 
flagged with a "P" in the outonut tisting. 


NEW Enew source file title] (Default = FALSE) 
S9ecifieas that a new source file be crested. The tittle 
of the new source fila may de specified on the rast of 


the source image. If it 38 not specified» then the 
axternal name of the NcWSOURCE file will be used. 


Causes a page eject if listing. 


— 
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PROCEDURE_STACK_SIZE (COQefautt = 20) 


Specifies the maximum depth of nested procedure calls 
in this program. 


CNOQ RUNTIME_CHECKS (COefault = TRUE) 


When FALSE» alt runstine checking will Se sucepressed. 
(For MCP use only). 


SEGMENT 


Causes a seqment break to be generated. This option is 
allowed only when it tmmediately follows the END of a 
PROCEDURE declaration. 


SEGMENT_PAGE 


Causes a page and segment break to be generated. This 
option is altowed only when it immediately follows the 
END of a PROCEDURE declaration. 


€NO} SEQCHECK (Defautt = FALSE) 


When TRUE» the compiter wilt verify that the seqrencea 
number of the currant source image contains onty 
numeric characters» and is greater than the sequence 
number af the eravicus source iMage- The sequence 
number may be all blanks only if the previous sequence 
number was aiso alt bdbtanks. An invalid sequence ntumoer 
wilt generate a warnings not a synt3x error. 


STATIC_MEMOGRY Cdefault = minimum of 10000) 


Specifies the amount of static gsemory in bdbitse 
Increasing STATIC_MEMORY automatically enlarges tha 
operand stack» but not the procedure stack. 


CNG] SUMAARY CODefault = FALSE) 


When TRUE» the compiler wilt croduce summary statistics 
on the output Listing. If NO LIST is specified» then 
tnis summary includes all information nornatily fcund at 
the end of the source tisting»s in addition to the 
summary statistics. 
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CNOJ SYMBOLIC_CUMP (Default = TRUE) 


CNG] TYPE 


Hhen set» symbolic information will be included in the 
code file for use by the Analyzer. when resete this 
information wilt not be included in the code file. The 
code file wilt be smatter when this option is resat»e 
put the dumps will not be informative. 


CHECKS CDefault = TRUE) 


when FALSE» all compile-time type chectring witl dba 
suppressed. Note that the compiter currently does only 
a Limited amount of type cnecking. 


USE_GLOBAL Cglobal file tittel 


Specifies to the compiter that a separate unit is being 
compiled. The title of the global code unit fay “>be 
specified on the rest of the source imagee If no title 
is specified» then the external name cf the GLOBAL file 
witli be used. 


VOID Csequence number 


The ¥VOID option may be followed by an optional Sequence 
Number. Att subsequent records in the SOURCE fite with 
sequence fields tess than or equal to tha Sequence 
Number witt be deteted. If the Seguence Nuscber is 
Omitted» only thea record with its sequence field equal 
to the sequence field of the VOI record will te 
deleted. The VOID option may onty appear in the CAR) 
filer and will only delete records in the SOURCE file. 


C(NOJ WARNFATAL COefault = FALSE) 


CNO] XREF 


When TRUE the compiler will treat ait warnings as fatal 
syntax errorse 


(Defauit = FALSE) 


When TRUE the compiter witl produce a cross-reference 
Listing at the end of the noramal program Llisting.e Thea 
cross*raference itnciudes att defined and predefined 
identifiers used in the program» excluding reserved 
wordSe It also irdexes Literals» ampersand bocleans»e 
dollar options» and do group tLabels. 
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CONDITIONAL COMPILATION 


The conditional compitation facility allows the oprogrammer to 
selectively compile obolocks of code without the necessity of 
physically adding or removing records. Conditional compilaticr 
control records must begin in column 1 with an "8". 


ZEIT ANQ RESET STATEMENT 


) <e eww cece ewe nwe ee eeeacene | 


: i ] 
1 1 
im RESET --1 


The SET and RESET statements wilt both declare» if not already 
declared» a conditionat compilation option name» and SeT it to 
true» or RESET tt to false. A reference to a canditionat 
compilation option name that has not been SET or RESET is an 
error. 


we" IF **7 Boolean Expression *** True Inclusion 3lock "=> 


| 1 
fem ELSE wf Fatse Incetusion Slock ===] 


Gootean Exaressian 


I< SSee ssa esse ees eese= AND weer esses resets ss sees 
! 1 { 1 
! f=" GA sd I 
! ! 
Seg pe ed eee ee eae PR ers ee option name Be age ee eo een Tena ee eg ange re ay Oo el, yee 1 


| ! 
pos NOT ey 


The coanditionat compilation IF statement 18s used to bracket 
blocks of code to be compiled conditionally on the result cf the 
Boolean Expressiane 


10°2 
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Exampiea: 

RESET OEBUG_ALL 

&SET DEBUG_A 

A s= 3,7 


SIF DE BUG_ALL OR DEBUG_A 

WRITE LINE ("A CHANGED TO" CAT DECIMALCAs8))> 
8ELSE 

WRITE LINE PAGE> 
&oNO 
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COMPILER EXECUTION 


The primary input to the compiler is from the file CARD. 


FILES 

CARD ' primary source input file Cdefault device tyre 
is OISK) 

SOURCE used if MERGE option is specified 

NEWSOURCE new source files if NEW option is specified 

CODE the generated code file 

GLOBAL code file of GLOBAL unit» if USE_GLOBAL is 
specified 

LINE output Listing 

ERRORS ; error message listings if ERRORLIST oction 
is true 

XREF internal fils for saving token refererces if 
XREF ts specified 

LISRARY file used to read in Library source if INCLUDE 
is specified 

FeP35 internal file for saving file parameter tlocks 


See MCP CGNTROL SYNTAX Product Specification for details of MCP 
Syntax to comoile programs. 


Examples 


? CO SLDO2/GLOBAL SOL2 LIBRARY; 
27 FI CARD NAME SDL2/SOQOURCE/GLOSAL> 
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BINDER EXECUTION 


See SEPARATE COMPILATION Section for a description of how to 
create unbound code fiiese 


FILES 
CARD source input Cdefault device type is DISK) 
CODE the generated code file 
LINE output listing 
OBJ the unbound code files used as input 
SYMTAB internal file for saving symbol table info 
DESCRIPTION 
The CARD file contains the bind request» listing the files to be 
bound atong with any options.~ The syntax for the binder input 


file is: 


1 | 
“=~ BIND *= Gtobal File Tithe «"*= » == Separate File Title --- 3 


Globat File Titte and Separate File Tittle are file titles 
conforming to the fottowing syntax. 


i ! of 1 
tos f == File id -*4 t2] ON =" pack 3d. "1 


Binder control options are allowed on any input record with 3 
doltar sign (8) itn cotlunn onee similar to compiler controt 
ontionse Valid control options and their default values are 
listed oelowe 


{NO] LIST (True) 
{CNOQJ LISTHEX (Faise) 
[NOJ SUMMARY (False) 
CNG] SYMS80LIC_OuUMP (True) 
CNG) OE BUG_ HASH C(Fatse) 


CNG] DESUG_SYMBGL_TAS3LE (False) 
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The first four options correspond to compiler options with the 
same namee If LIST is True» .atisting of procedures and code 
addresses will be produced. If LISTHEX is True» code addresses 
Wiil be printed as hex values? otherwise they witt be orirted as 
decimal values. If SUMMARY is True» summary statistics will be 


printed at the and of the listinge If SYMSOLIC_DUMP is False» no 
symbotic dump information witt be inctuded in the final code 
file. The CESUG options are for binder debugging. 


See MCP CONTROL SYNTAX Product Specification for details of MCP 
syntax to compile programs. 


Examples 


CO XSOL2 SOL2/BINDER LIBRARY; 
FI CARD CARD-READER? 
DATA CARD 
SUMMARY 
BIND SDL2/GLOS8AL ON SDL2>» 
SDL2/DECLARE ON SOL2> SOL2/STATEMENT ON SOL2s 
2? ENO 


CF Oe 0 
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CODE ANALYZER EXECUTION 


ELLES 
CARD optionad input file Cif SWO = 1) 
LIWE output listing 

DESCRIPTION 


The SDL2/5A program anaiyzes SDL2 code fiias. Input is via 
Accept commands or the CARD filer and is free format with one or 
more tokens per Accept command or input record. A btank Accept 
command or endeof-fitle terminates the program. 


The program will first ask for the title of the code file. The 
entire titte must appear on a single Accept command cr input 
records conforming to the syntax shown below. Other commands may 
foilow the tittle in the same Accept command or inout record. 


i io 1 
fee fe" file rd =) 10° ON -=- pack id <1 


After the file is opened and verified» the program will promot 
for commandse The attlowable commands are Listed below. 


co 


The code dictionaries will be printed. Undound code 
files have onty a segment dictionary» white executable 
code files have both a page and segment dictionary. 


CODE Cpage] segment 


Prints the contents of the code file within the 
specified page and segment. The page and/or segment 
may be ALL instead of an integerer in which case all 
pages or segments wiil be analyzed. If an unbound unit 
is betng analyzed» then page cannot be specified. 
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COUNT EC[pagqe] seagqmant 


Counts the number of occurrences of each S“ap within 
the specified page and segment. As with the COE 
command» ALL may be used instead of an integer value 
for the page and/or segment. Both the frequency count 
and the percentage of total operands witt be eprinted 
for each Stone If an undound unit is being analyzed» 
then page cannot be soecified. 


DMS sagmeant 
Prints the contents of the code portion of a <5 
Dictionary file within the specified segneant. The 
segment may be ALL instead of an integers» in which case 
all segments will be analyzed. 


END 
Terminates the program. 
NEXT 
The current code file witt be closed» and the user will 
be asked for the name of the next code file to analyze. 
PP@ 
The contents of the Program Parameter Btock and 
Scratchpad witt be printed. This command is not 


allowed with an unbound code file. 
PSS entries 
The number of Procedure Stack entries witl ode changed 


ta the soecified number. This command is not altowed 
with an unbound code file. 


SYM 
Prints the symbot table information from a d5eund or 
unbound code file. 

TEACH 
Displays commands on the QOT. 

UH 


The contents of the Unit Header will be printed. This 
command is only allowed with an unbound code file. 
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Example 3 

SA : ENTER FILE TITLE OR BLANK TC TERMINATE 

User 3: TEST/PROGRAM ON P 

SA 3: COMMANSS: CODE COUNT PPB PSS SO NEXT END 

User <3: CODE 

SA s ENTER PAGE NUMBER GR "ALL® 

User : 0 

SA 3 ENTER SEGMENT NUMBER OR PALL* 

User 3: ALL 

SA > COMMANDS: CODE COUNT PP38 PSS SD NEXT END 

User 2: CODE 1 5 PPB SD END 


Note that command prompts are issued only when SOL2/SA axpects a 
command but no command has obdeen entered. If a coamand has 
already been entered» then the orompt will be suporessed. 
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RESERVED WORDS 

This section lists the identifiers which are reserved words in 
SDL2. 

AND MOD 

AS NOT 

3Y OF 

CAND ON 

CAT OR 

COR POINTER 

CONSTANT PROCEDURE 

CONTAINS RECORD 

DECLARE REDUCE 

DEFINE REFER 

dd REFERENCE 

DOWNTO REPEAT 

ELSE RETURN 

END * SEGMENT 

EXIR * SEGMENT_PAGE 

EXTERNAL SET 

FOR SETTING 

FILE STOP 

FOREVER SWITCH_FILE 

FORMAL THEN 

FORMAL _ VALUE TYPE 

FORWARD UNDO 

IF UNION 

IN UNTIL 

INTERSECT * USE 

MEMBER WHILE 
Identifiers marked with an asterisk ares reserved only to improve 
error recovery for prograas converted from SOL. They have no 


special function in SDL2. 
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APPENDIX A == UPL2 


UPL2 is a “"safe™ version of the SOL2 compiter. it is a subset of 
SDL2» and does not include the following constructs. 


ALLOCATE_MEMORY 
SASE_REGISTER 
SINARY_SE ARCH 

PALL 

CODE_ADDRESS 
COMMUNICATE 
COMMUNICATE_WITH_GISMQ 
DATA_ADDRESS 
DATA_OFFSET 
DATA_TYPE 
‘DC_INITIATE_10 
DISABLE_INTERRUPTS 
OILSPATCH 
DYNAMIC_MEMORY_BASE 
ENABLE_INTERRUPTS 
ERROR_COMMUNICATE 
FETCH 
FETCH_COMMUNICATE_MSG_PIR 
FREEZE_PROGRAM 
HALT 
HARDWARE_MONITOR 
LIMIT_REGISTER 
READ_LOCKX 
REFER_ADDRESS 
REFER_LENGTH 
REFER_TYPE 
REVERSE_STORE 
SAVE_STATE 
SEARCH_LINKED_LIST 
SEARCH_SDL_STACKS 
SEARCH SERIAL_LIST 
SHIFT 

TEST 

THAW_PROGRAM 


Swap statement (3=: 

Netete right assignment exoression Cii= 

tf or Case expressions used as address generators 
POINTER variables 


® INITIALIZE_REFERENCES Cdefault is True for UPL2) 
3 INTRINSIC 
$ LISTHEX 

&§ RUNTIME_CHECKS 
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APPENDIX 8 22 304 TO SDL CONVERSION 


This Appendix provides information useful when converting SOL 
programs to S5DL2. The first section describes SOL constructs 
which must be changed and/or avoided when converting to SDL2. 
The second section describes the standard routines which are 
available in SOL but not itn SOL?. The third section descrioes 
Mow to convert SOL«*style file attributes to the CSG "Standard fila 
attributes used by SDL2. The fourth section describes how to 
convert SOL compiler control options to SOL? compiler control 
optionse 


Note that this Apoendix is intended as a conversion aids not a 


tutorials» and for this reason does not document new SOL2 features 
which were not available in SDL. In particular» the Type» 


Constants» Forer Repeats Whilas and Labeled Case statements are alt 
new in SOL2» and are described etsewhere in this document. 


DIFFERENCES SETWEEN SDL AND SOL2 


The following differences peruse! SOL and SOL? can be resolved by 
direct text substitution. 


1) Cospatiat record declarations must use *i' instead of 
*»" to delimit fieids. 


2) The relational operators listed on the Left» bellows are 
no tonger altowed. They must be replaced with the 
operators on the righte 


= <> 
NEQ <> 
Eat = 
GTR > 
LS5 < 
GEQ >= 
LEQ <= 


3) SWAP must be replaced by READ_LOCK. 
4) DUMP_LFOR_ANALYSIS must be replaced by DUMP. 


5) SPO_INPUT_PRESENT mast be replaced by 
OOT_INPUT_PRESENT. 


6) The vertical bar "I" cannot be used for assignnentse 
It must be reptaced by "s=". 


i) SORT_SWAP must be replaced by "s=:". 
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8) OYNAMIC is no longer required within dynamic vériable 


declarations» and it sust be reptacad oy btanks. 


9) Vatid SDL identifier names May cause reserved=word 
conflicts with SOL2. New reserved words inctlude: 


CAND MEMBER 
CONSTANT POINTER 
CONTAINS REPEAT 
COR SET 
DOWNTO TY¥PC 
EXTERNAL UNTON 
FOR UNTIL 
IN WHILE 
INTERSECT WITH 


The next set of differences cannot be resolved by direct textual 
substitutione However» ail occurrences of these constructs in an 
SDL program can be easily converted to the equivatent SdL2 
constructe 


19) There is no UNDO C*#) construct. Dowtloops using this 
construct must be converted to named doriocnse and an 
undo of the outermost loop substituted for each 
instance of UNDO (#). 


11) Att format declarations must be specified in the sare 
order as the variables appear in the procedure heading. 


12) A&tt close options must be saparated by commas. 


13) While the CHAR_TABLE function is stilt implemented in 
SCL2» it no tonger produces a bit table in the sama 
order as SOL. Thus» programs which relied on the oit 
positions of a CHAR_TASLE string must be rewritten. 
For examples», the following SOL code checks whether CH 
is a digit: 


SUBBIT CCHAR_TASLEC"01234567399"%)» CH»s 1) 
It must be repitaced by the following SfL2 code: 
CH IN CHAR_TAS3LE (€79123456789") 


14) The GROW construct is no longer necessary» since paged 
arrays will automatically grow in size. The numter cf 
elements in the array may be tested by the function 
ARRAY_BIUND. 


15) The LOCATION functione which returned a 33-bit valtuse 
must be replaced by COOE_ADDRESS» which returns a 
32-bit value. 
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16) 


17) 


18) 


19) 


The next 
above. 


20) 


SO0L2 treats comments and endtof-lines as seperators. 
This means tokens cannot be sptit across two source 
images» and comments cannot o28@ embedded within 
identifiers or fliterais. For examotes» the following 
SOL construct: 


A = 24236/« 
(#/70F 043 


must Da reptaced by the foltowing SOL2 construct: 


A s= 94236939 CAT 
a70F 03> 


ACCEPT » DISPLAY» and ZIP are standard procedures in 


SDL2 » $0 their parameters must oe enclosed In 
parentheses. 


Paged arrays are deciared differently in SOL2. SOL . 
required the “PAGED Celements per page)” part of the 
declaration before the tidentifter namer while SDOL2 
requires this part of the dectaration to be optaced 
between the array bound and the scatar type. 


Conditional compitation booleans must always be 
explicitdy SET or RESET before they can be used in an 
8IF statement. SOL initializec ati undectared 
conditionad compitation booteans as though they were 
RESET. 


set of differences requires more thought than those 


No descriptor manipulation is stlowed. Att 
descrictorsrelated constructs in SOL must be reclaced 
Dy the use of reference variables» and the constructs 
DATA_LLENGTH» DATA_LADDRESS» CATA_TYPE» REFER_ACDRESS» 
REFER_LENGTHs and REFER_TYPE. 


Selferelative variabies will not be tinitiatized to zeros 
in SOL2» ‘as they were in SOL. Instead» they rust be 
explicitly set to zero if this is what the obrocrammer 
intended. This could tead to subtte programning bugs» 
if any usages of noanwinitialized variables are not 
detected during the conversion processs. However» if 
the $CLEAR_LOCALS comoiter control cption is srecifieds 
then the compiler with generate coce to set all tocat 
data space to zero and ait descriotors toa invatid 
addresses» 
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22) 


23) 


25) 


26) 


Fite declarations must use CSG-Standard fite 
attributes. The CHANGE» READ_FPO>» and WRITE_FP3 
Statements have oeen reolaced oy direct references to 
standard fite attributes. See the FILE ATTRISUTES 
Section of this Appendix for more information. 


The OPEN statement does not allow any options»e age 
OPEN INPUT. Atl apen options must be set before the 
open request» using fila attribute assignments. 


The rasult of the Logical operations QR» EXOR» and AND 
is always of type bit. In SOL» the result was of the 
Same type as the tongest operands and so could 
sometimes be of type character. 


Adl unstructured records in SDL had a type of Dite In 
SDL2» the record witt 62 of type dit only if at ieast 
one of its subfields is not of type character. If ali 
to the subfietds are character fietds» then the record 
wilf be of type character. 


The extended arithmetic operators X_ADDe X_SUBse» X_MUL>» 
X_DIVs and X_40D0 always returned bit strings of a 
predictable tength in SOL- In SDL2» the length of the 


result can vary» depending on the numbder of bits 
required to maintain precision. In SDL» if beth 
operands were of the same tength»e they they were 
assumed to be in twostcompiement form» allowing for 
sign analysis. In SOL25 both operands are assumed ta 


be positive and no sign analysis is done. 


The following List describes those features which will ce the 
most difficutt to change when converting from SDL toa SOL2. 


afr) 


23) 


29) 


30) 


No indexing is adlowed. AdL indexing must be replaced 
by the use of record or reference variables. 


No structurad declarations are allowed» and 
consequently no USE statementse Alt such deciarations 
must be converted to recordse These changes may bea 


simplified by the use of structured racords and the 
WITH statement. 


SEARCH_LINKED_LIST and SEARCH_SERIAL_LIST use records 
instead of temolates» and are formatted slightly 
differently than in SOL. See the CONVERSION OF 
STANDARD ROUTINES Section of this Appendix fer more 
informations 


REMAPS as not allowed. It must be replaced either by 
cospatial record fields» or tne use of reference 
variables. 
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The following differences between the two Languages should aise 
be noted. 


31) The CREATE_MASTER and RECOMPILE capabilities do not 
exist in SOL2. They have been reptaced cy the 
compilation of separate program units» which are Later 
bound together. 


32) Segmentation is tess flexible tin SOL2. Segmentation 
may only be done at procedure boundaries» and anly by 
requesting that a new segment and/or page 5A generated. 
Notes however - that SO0L2 provides automatic 
segmentation» which was not available in SDL. 
User-specified segmentation is done through the use of 
the $SEGMENT and $SEGMENT_PAGE corpiler controt 


optionse SOL SEGMENT statements wtlt generate an 
advisory message» not a syntax errore Eventually» 
however» specifying SEGMENT outside of a compiler 


control option witt be considered a syntax error. Note 
that SEGMENT cannot be defined as blanks» since this 
wili work incorrectly when used itn an IF or CASE 
statement. 


33) There have been some changes to the comspiter controt 
options (dollar cards). Any usage of compiler controt 
options in SOL shoutd be checked against the attowanle 
options in SOL2. In particular» the monitoring» 
profiling» and timing capabilities of SDL are not 
implemented in SOL2-2£ Also» permanent conpiler control 
options must be preceded by "88* instead of "&*. 


34) In conformance with the CSG Compiter Controt Images 
Standards» the internal names of some files have beer 


changed. The primary input file is CARD unstead of 
CARDS» and the error massage file is ERRORS instead of 
ERROR_LINE. 
The following differences peteween SOL and SOL2 coancern 
performances. Some SOL constructs are not as efficient as 


alternate constructs available in SDL2. 


35) The SOL Reduce statement did not atlow a reduction 
condition of "NOT IN". Alt statenents of the form: 


REDUCE TEXT UNTIL FIRST IN NOT SPECIALS; 
should be replaced by the more efficient form: 
REDUCE TEXT UNTIL FIRST NOT IN SPECIALS; 
36) Type and Constant statements were not available in SDL. 


Converting Defines to Types and Constants should 
improve compile sneed. 
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37) In SOL the statement 
BUMP I; 
was more efficient than 
I s= [ # 13 


In SOL2 the reverse is true. 
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STANDARD EUNCTIONS AND PROCEDURES 


UNIMPLEMENTED STANDARO 2QUTINES 


The following standard SDL functions 


avaitabte in SOL2. 


ACCESS_FILE_INFORMATION 
CHANGE_STACK_SIZES 
CLEAR 

CONSOLE_SWITCHES 
CONTROL _STACK_3ITS 
CONTROL_STACK_TOP 
DEBLANK 

DEL IMITED_TOKEN 
DISPLAY_BASE 
ENTER_COROUTINE 
EVALUATION_STACK_TOP 
EXECUTE 

EXIT_COROUTINE 

GROW 
HASH_CODE 7 
INTERROGATE_INTERRUPT_STATU 
INITIALIZE_VECTOR 
LAST_LIO_STATUS 
M_MEM_SIZE 

MAKE_ DESCRIPTOR 
MAKE_READ_ONLY 
MAKE_REAO_WRITE 

MONITOR 

NAME_STACK_TOP 


and procedures are 


NEXT_ITEM 
NEXT_TOKEN 
PARITY_ADODRESS 
PREVIOUS_ITEM 
READ_CASSETTE 
READ_FILE_HEADER 
READ_FPS 
READ_OVERLAY 
REINSTATE 
RESTORE 
S_MEM_SIZE 

SAVE 

SEARCH _DIRECTORY 
SORT 

SORT_MERGE 
SORT_SEARCH 

SORT _STEP_DOWN 
SORT_UNSLOCK 
THREAC_VECTOR 
TRACE 
VALUE_CESCRIPTOR 
WRITE_F ILE_HEADER 
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CONVERSION SE STANDARD ROUTINES 


Clear 


SOL syntax: 


SDL2 syntax: 


CLEAR ARRAY? 


PROCEDURE CLEAR 
FORMAL A (#) 


DECLARE INDEX FIXED; 
FOR INDEX s= 0 TO ARRAY_BOUND 


A CINDEX) 
RETURN» 
ENO CLEAR; 


CLEAR CARRAY)> 


CA)>s 
BIT, 


ee as 
o= 


07 


Lo*2 
COMPANY CONFIDENTIAL 
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CA) - 1 
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Hashecade 


SOL syntax: 
HASH_CODE CTOKEN)>; 
SDL2 syntax: 


PROCEDURE HASH_CODE CTOKEN)D SIT (24); 


FORMAL 
TOKEN CHARACTERs 
DECLARE 
TOKEN_LENGTH FIXED» 
INDE X FIXED» 
CH REFERENCE» 
HASH BIT (27), 


HASH 3= TOKEN_LENGTH <2= LENGTH CTOKEN)> 

IF TOKEN_LENGTH > 15 THEN 
TOKEN_LENGTH 3=153 

INDEX 2= OQ, 

WHILE INDEX < TOKEN LENGTH DQG; 
REFER CH TO SUBSTR CTOKENs INDEX» 1)> 
BUMP INDEX; 
BUMP SUBBIT CHASH» 3 = CINDEX MOD 4)» 24) BY CH>s 
ENO? 

RETURN SUBBIT CHASHe 3,5 24)5 

END HASH_CODE> 


Nota that this procedure is by no means an optimal hash function. 
It should be used onty if it is essential to compute the 
identical hash vabues comnuted by SOL. 
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a2earcch Linked List 


SOL syntax: 


SEARCH LINKED_LLIST CSTART_RECORD>s 
COMPARE_FIELD» 
COMPARE_VALUE> 
RELATION» 
LINK_FIEL)) 


SOL2Z2 syntax: 


SEARCHLLINKED_LLIST CSTARTLRECORO> 
COMPARE_FLTELD RELATION COMPARE _VALUE>» 
LINK_FIELD) 


In SOL» START_LRECORD coudid be either an expression or an address 
generator. In SOL2>» it must be an address generator with a 
RECORD type. COMPARE _ FIELD and LINK FIELD must be fields within 
that record type. 


SOL returned the baserrelative address of the first structure 
where the expression COMPARE VALUE RELATION COMPARE_FIELD was 
trues. If no match was found it returned @FFFFFF a. SOL2 returns 
the first structure where the expression COMPARE_FIELD RELATICN 
COMPARE_VALUE is true» or an address generator with a data 
address of @FFFFFFa. 


Examples 


SDL: RS_ADD2 2= SLLCSTART_ADOR» RS_JOS_NUMEER COI» 
JN» =» RS_Q_LINK €01)3 
IF RS_ADDR = aFFFFFFQ 
THEN NOT_FOUNDS 


S0L22 OECLARE FIRST REFERENCE RS_NUCLEUS> 
RSN REFERENCE RS_NUCLEUS; 
REFER_ADDRESS CFIRST» START_ADOR)> 
REFER RSN TO SLLCFIRST> 
RS_JOB_NUMBER = JN» 
RS_G_LINK))3 
IF DATA_ADDRESS CRSN) = QFFFFFFQ 
THEN NOT_FOUNDS 
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Search Serial List 


SOL syntax: 


SEARCH_SERIAL_LIST CCOMPARE_VALUE> 
RELATIGN» 
COMPARE_FIELD> 
START_RECORO> 
TASLE_LENGTH> 
RESULT_VARIABLE) 


SOL2 syntax: 


SEARCH _SERTAL_LIST CSTART_ RECORD» 
COMPARE_FIELD RELATION COMPARE VALUE > 
TASBLE_IT TEMS) 


START_RECORD must be an address generator with a RECORD typeer and 
COMPARE _FIELD must be a field within that record type. Or » 
START_LRECORD can be any address generators and COMPARE_FIELD must 
be omitted» in that case START_RECORD will be used as_ the 
comparison field. 


In SOL» TASLE_LENGTH specified the number of bits to be searched. 
In SOL2» TABLE_LITEMS must be used instead of TABLE_LENGTH. 
TABLE_ITEMS specifies the numbder of sequential entries that are 
to be searched. 


SDL returned aiif the search succeedede anda@<dadif it failted>, 
with RESULT_VARIA8LE being set to the base relative address of 
the entry containing COMPARE_VALUE. SO0L2 does not use a 
parameter to return the result of the search. Instead» the 
function returns the element number of the matching antry (Ctha 
first elament is 0). If no match is founds then TABLE_LITEMS witil 
be returned. 


Examples - 
SOL =: IF SSLCJN» =» UNIT _JOB_NUMBER [CO]> 
IOAT_LREC CHINT.IOAT_POINTERI» 
HINTSeIQATLEND = HINTS.IGAT_POINTER>s 
IQAT_ADOR) = 9 
THEN NOT_LFOUNDs 


SDL22 DECLARE IQAT REFERENCE IOAT_REC? 
REFER_ADDRESS CLIOATs HINTSeIOGAT_POINIER)S 
ENTRY c= SSL CIOAT» UNIT_JOS_NUMBER=JN»> I[OAT_LENTRIES)? 
IF ENTRY = IOAT_ENTRIES 
THEN NOT_FOUNDS 
ELSE IQAT_ADOR := HINTSeIOAT_POINTER + 
ENTRY * IQAT_SIZE3 


11/05/32 | 16°12 


BURROUGHS CORPORATION COMPANY CONFIDENTIAL 
COMPUTER SYSTEMS GROUP 81C00 SDL2 COMPILER 
SANTA BARBARA PLANT PeSe 2228 3519¢€8) 


FILE ATTRIBUTES 


SOL2 uses CSG*Standard file attributes in File ODeclearations and 
in Get/Put Attribute Statements. The CSG*Standard attributes 
implemented by the 31000 MCP are documented in the MCP 
COMMUNICATES AND STRUCTURES Product Specification. 


This section Lists the attributes altowed in SDL» alona with the 
equivalent standard attributes available in SOL2. It dees not 
list ait of the standard attributes allowed by SDOL2. Thesa are 
documented in the INPUT/OUTPUT Section. 


Attcibutes Used In Elle Qeclaration Statements 


SDL : SOL 2 
ALL_AREAS_AT_OPEN not iaplerented 
AREA_BY_CYLINDER not implerented 
AREAS = areas/blks_per_area AREAS = areas 


AREALENGTH = chars_per_rec 
* recs_per_blk 


* biks per_area 


BUFFERS = SUFFERS = 

DEVICE = Cin atphabeticat order) KINO = | 
CARD OATARECORDER 
CARD_L PUNCH forms backup oISK 
CARD_FEADER OcT 
CASSETTE PAPERPUNCH 
DATA_RECORDER_ 80 PAPERREADER 
DISK access PORT 
DISK_FILE access PRINTER 
DISK PACK access PUNCE 
DISK_PACK_CENTURY access PUNCHSO 
DISK_PACK_CAELUS access PUNCH96 
PAPER_TAPE_PUNCH forms backup aUEVUE 
PAPER_TAPE_READER READER 
PORT READERSORTER 
PRINTER forms oackuo READER3O 
PUNCH formas backup READER965 
PUNCH PRINTER forms backup REMOTE 
GUEUE Cmax msgs) TAPE 
QUEUE Cmax msgs) FAMILY (size) TAPECASSETTE 
READER_PUNCH_PRINTER forms backup TAPEPE 
READER_SORTER TAPE? 


READER_96 TAPES 
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REMOTE Cmax msgs) remote_ontions 


SORTER_REACER 
SPO 

TAPE 

TAPE_NRZ 
TAPE_PE 
TAPE_7 

TAPE_9 


access = null 
SERIAL 
RANDOM 
DELAYED_RANDOM 
SERITAL_WITH_OVERWRITE 


forms = nutl ! FORMS 


backuo = nutl 
BACKUP 
BACKUP DISK 
BACKUP TAPE 
NG BACKUP 
OR BACKUP 
OR BACKUP DISK 
QR BACKUP TAPE 


queue max msgs 
queue family size 


remote ootions = WITH HEADERS 
FAMILY 


END_OF _LPAGE_ACTION 


EU_INCREMENTED 


EU_LSPECIAL = 


EX CEPTION_MASK 


FELE TYPE. = 
DATA 
INTCRPRETER 
CODE 
INTRINSIC 
PSR_OGECK 


HOST_NAME = 
INVALID_CHARACTERS = 


LABEL = afid/fid 
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ACCESSMODE = 
SERIAL 
RANCOM 
DELAYEDRANDOM 
not wmplemented 


not imoiesented 
BACKUPKIND = 


DISK 
TAPE 


BACKUPPERMITTED = 
DONTCARE 
DONTBACKUP 
MUST BACKUP 

QMAXMESSAGES = 

QFAMILYSIZE = 


REMOTEHEACER = TRUE 
GFAMILYSIZE > 1 


not implemented 
\ 

> FAMILYINOEX = 
/ 


not implemented 


FILEKIND = 
DATA 
INTERPRETER 
COCE 
INTRINSIC 
PSEUCO_CARD 


HOSTNAME = 
INVALIOCHARS = 


TITLE = 
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LABEL_TYPE = . 

ANSI LABEL = EECDICLASZEL or ASCIILASEL 

BURROUGHS not imolemened 

UNLABELED LASEL = OMITTED or OMITTEDEDF 
LOCK not imoilemented 
MODE = 

OOD PARITY = 00D 

EVEN PARITY = EVEN 

ESCDIC EXTMODE = ERBCOIC 

ASCII EXTMODE = ASCITL 

3CL EXTMODE = BCL 

BINARY ; EXTMODE = BINARY 
MULTI_LPACK | not implergrented 
NUMBER_OF STATIONS = STATIONSALLOWED = 
OPEN_OPTICN = 

INPUT MYUSE = IN 

INPUT/QUTPUT MYUSE = 0 

INTERPRET OPENNOGREWIND = TRUE 

LOCK QTHERUSE = IN 

LOCK_OUT OTHERUSE = SECURED 

NEW NEWFILE = TRUE 

NO_REWIND OPENNOREWIND = TRUE 

ON_ BEHALF _OF CPENOQNEERALFOF = [RUE 

OUTPUT MYUSE = OuT 

PUNCH OPENWITKPUNCH = TRUE 7 

PRINT OPENWITRPRINT = TRUE 

REVERSE DIRECTION = REVERSE 

STACKERS not imotesented 
OPTIONAL OPTIGQNAL = TRUE 
PACK_IO = FAMILYNAME = 
PROTECTION = SECURITYTYPE = 
PROTECTION_TQ = SECURITYUSE = 


x 

RECORDS = chars_per_rec/recs_per_btk MAXRECSIZE = chars_per_rec 
ABLOCKSIZE = chars _per_rec 

* recs _cer_olk 


REEL = “VOLUMEINOEX = 
REMOTE_KEY REMOTEKEY = 
SAVE =. SAVEFACTOR = 


SECURITYTYPE = SECURITYTYPE = 
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SERIAL = 


TRANSLATE = fileid 


USE_INPUT_ BLOCKING 
USER_NAMED_3ACKUP 
VARIABLE 


WORK FILE 


COMPANY CONFIDENTIAL 
B1C00 SDL2 COMPILER 
PeSe 2222 3519(8) 


DEPENDENTSPECS 


SECURITYUSE = 
SERTALNO = 


TRANSLATE = FORCESOFT 
fileid not implemented 


TRUE 


USERBACKUPNAME 


i} 


TRUE 
BLOCKSTRUCTURE = VARTA3LE 


WORKFILE = TRUE 
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Attcibutes Used In Change CGet/Put) Statements 


rad 


This section tists the file attributes which were allowed itn an 
SDL Change Attribute Statement» but not in a Fite Declaration. 
For a comptete tist of file attributes which are atlowed in SdL2 
Get/Put Attribute Statements» refer to the INPUT/QUTPUT Section. 


SOL SOL 2 


BLOCKS_PER_AREA = blks_per_area AREALENGTH = chars_fer_rec 
* recs _per_blk 
* Diks_per_area 


EULORIVE = FAMILYINGEX = 
EUV_LINCREMENT = FAMILYINDEX = 

FILE_ID = FILENAME = 

MULTILFILE_ID = FILENAME = 
NUMBER_OF_AREAS = | AREAS = 

CPEN_ON_SEHALF_OF = OPENONBEHALFOF = 
QUEVE_FAMILY_SIZE = QFAMILYSIZE = 
QUEUE_MAX_MESSAGES = QMAXMESSAGES = 

REMOTE _HEADERS = REMOTEREACER = 
RECQRDOS_PER_@BLOCK = reacs_per_blik BLOCKSIZE = chars_per_rec 


* recs_per_olk 


RECQRO_LSIZE = chars _per_rec MAXRECSIZE = chars _per_rec 
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COMPILER CONTROL OPTIONS 


SDL2 atlows different compiier options than SOL. Most of the 
changes were made to conform to the CSG Compiler Control Images 
Standard. Permanent conpiler options must be preceded by *£$* in 
SDL2» instead of *&* as in SOL. 


This section tists the options attlowed in SDL» atong with the 


equivalent options available in SDL2. It does not fist att of 
the compiter options aitowed by SOL2. These are documented ir 


the COMPILER CONTROL Section. 


SOL SDL2 
ADVISORY not impterented 
AMPERSAND | LISTAMPERSAND 
CHECK : SEQCHECK 
CODE Cope 
CONTROL | LISTOOLLAR 
CONVERTDOTS not implegented 
CREATE_MASTER not implerented 
CSSIZE PROCEDURE_STACK_SIZE 
DE dUG various 
DETAIL not imptegented 
DOUBLE not implesented 
DYNAMICSIZE ag DYNAMIC_MEMORY 
ERROR_FILE ERRORLIST 
ESSIZE STATIC_ MEMORY 
EXPAND_DEF INES not implerented 
FORMAL_CHECK not implemented 
FREEZE not implewented 


INTERPRETER not implemented 
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INTRINSIC 

LIBRARY 

LIBRARY_PACK 

LIST 

LISTALL 

LOCKI 

MERGE 

MONITOR 
NEST_PROCEDURE_TIMES 
NEW 

NO_OUPLICATES 

NO_ SOURCE 

NSSIZE 

PAGE 

PASS_ENO 

PPSSIZE 

PPROFILE 

PROFILE 

RE COMPILE 
RECOMPILE_TIMES 

SEQ 

SINGLE CSGL) 

SIZE 

SUPPRESS 

TIME _BLOCKS 

TIME _PROCEOURES 


TIME_MCP 


lo-13 
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INTRINSIC 
INCLUDE 
FAMILY 
LIST 
LISTOMITTED and LIST 
not imolesgented 
MERGE 
not implemented 
not implewented 
NEW 
not imoptermented 
not imolewented 
STATIC _ MEMORY 
PAGE 
not implemented 
PROCEDURE_STACK_SIZE 
not implemented 
not implemented 
not implemented 
not impilesented 
not implerented 
not implemented 
not imolemented 
not imolesnented 
not implemented 
not tmolerented 


not imolenent ad 
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USEOOTS 

VOID 

VSSIZE 
WORKING_SET_BYTES 

XMAP 

XR EF 


XREF_ONLY 


16°19 
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not imptesented 
VOID 
STATIC_MEMORY 
not implemented 
not imptemented 


XREF 


not imolewented 
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INQEX 


ABNORMALSAVE 7-6 

Accapt 6"*22 

ACCEPT beZze2 

ACCESSMODE 7-2e F716» 7-17 


Actual Procadure Declaration 3°29 
Add Factor 576 
Address Ganarator 5714 


Allocate Memory 671 
ALLOCATE _MEMORY 6~1 
ANALYZER 1371 

AND 53s» 10-1 

And Factor 5<4 

APPENDIX A == UPL2 15-1 
APPENDIX 8 == SOL TO SDL2 CONVERSION 16-°l 
AREAADDRESS 7716» 7-17 
AREAALLOCATED 7716» 7°17 
AREABLOUCKS 7°2» ("15% 7-17 
AREALENGTH 772» 7716» 7717 
AREAS 7>2e9 7Telbs 7717 
Arithmetic For Range 4-8 
Array 3o0und 6~1 

Array Subscript 5°8 

Array Type 3712 
ARRAY_380UND 6°71 

AS 3~3 

ASCII 773 

ASCIILA@EL 7*5 

Assignment Expression 0 Tha a | 
ASSIGNMENT STATEMENT 4-2 
ATTERR 7-17 

Attribute Value 6°2 
ATTRIBUTE_VALUE 6-2 
Attributes Used In Change (Get/Put) Statements 16°15 
Attributes Used In File Cectaration Statements 16-12 
ATTVALUE 7-17 

ATTYPE 7-17 

AUDIT 7-12 

AUDITED T-29 7-160 7°17 
AUTO_SEGMENT date | 
AUTO_LSEGMENT_SIZE 3-1 
AVAILABLE fe17 


BACKUPFILZINAME 7717 

BACKUPKIND 7-22 T7162 7-17 
BACKUPPERMITTED 7-2» 7=16» 7717 
Base Register 672 
BASE_REGISTER 672 
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BCL 7-3 

sinary 6-2 
BINARY 629 773 
Binary Search 6 
BINARY SEARCH § 
BIND 12°1 
BINDER EXECUTION 12 
BIT 3°66» 6°76» 6°19» 
Bit Strings 2-3 
BLOCK 7-17 
SBLOCKSIZE 7-2» 7716 
BLOCKSTRUCTURE 7-2» 
BODY &=-1 

BOOLEAN 3-6» 3-17 
Boolean Expression 

BP 11690 7°3 

BPI200 7-3 

BPI556 773 

BP16250 ras 

BPI800 7-3 

BUFFERS 7-3» 77169 
Bump 6°35 6722 

BUMP 6-3» 6°22 

BY 6°32 8°79» 6°22» 


Cail 6722 


CALL 6-22 

CALL STATEMENT 4-3 
CAND 5-3 

CASE hehe 4°59 5712 
Case Exoression 5-1 


CASE STATEMENT 4-4 
CAT i aa | 

Cat Factor 5-2 

CD i3=i 

CENSUS 7717 
CHANGEDSUBFILE 7-17 
CHAR_TA3LE 674 
CHARACTER 376» 6576» 
Character Fill 6°23 
Character Strings 2 
Character Table 674 
CHARACTER_FILL 6°23 
CHARACTER_SET 376» 
Chr 674 

CHR 674 

CIVILIAN 4-13 

Clear 16°93 
CLEAR_LICALS 9-1 
Close ot Ya 

CLOSE {212 

CODE 7-39 9-1» 13-1 
Code Address 674 
CODE ANALYZER EXECUTI 


P 


=i 
6-28 


» 717 


7716» 


10-1 


7-17 


6-25 


2 


6°13» 


sc 


S716 


| awe © § 


6-23 


ON 13-1 
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CODE_ADDRESS 6-4 
COMMUNCATE*WITH_GISMO 6723 


Communicate 6°23 
COMMUNICATE 6°23 
Communicate With Gismo 6-5» 9°23 


COMMUNICATE_WITH_GISMNO 6°5 
Compile Card Information 6724 
COMPILE_CARD_INFO 6-24 
COMPILER CONTROL 9-1 

COMPILER CONTROL OPTIONS 16°17 
COMPILER EXECUTION Lisi 
COMPRESSION 7"16» 7717 
CONDITIONAL COMPILATION 10-1 
CONSTANT 3°5 

CONSTANT CECLARATION 55 
CONTAINS 574 

CONVERSION 16-1 

CONVERSION OF STANDARD ROUTINES 
Convert 6°65 

CONVERT 676 

COR a=2 

Cospatiat Field List 3-14 
COUNT 13-2 

COUNTER 6718 

CREATE_GLOBAL B-2» I-1 
CREATIONDATE 7-17 
CREATIONTIME 7-17 

CRUNCH 7712 

CRUNCHED 9-25 

CURRENTSBLOCK r-17 


DATA 7°53 

Data Address 6-7 
Data Length 6-7 
Data Offset 6°7 
Data Type 677 


DATA_ADDRESS 6°7 
DATA_LLENGTH 6°7 
DATA_OFFSET 6-7 
DATA_TYPE 6-7 


Datacomm Initiate I[/0 6724 mi 


DATARECORDER 7-4 
Nate 6-3 
DC_INITIATE_I9 6724 
DC_IO_COMPLETE 9°20 
DEBUG 9-2 

DEBUG HASH 12~1 

DE SUG_SYMBOL_TABLE 12°71 
Decimal 678 

DECIMAL 6°38 
DECLARATIONS 3-1 
DECLARE 3-19 
Decrement 679» $225 
DECREMENT 679» 6°25 


1xX-3 
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Default Fite Attributes 


DEFINE 3=3 
DEFINE DECLARATION 
Define Head 3-3 


Define Parameter List 
DELAYEDRANDOM 7-2 


s=3 


DENSITY 77*3» @-169 7-17 


DEPENDENTSPECS 7-3» 
DESCRIPTION 12-1> 
DIFFERENCES BETWEEN SOL ANO 


DIGIT 6-18 


DIRECTION 73» 7"16»9 7-17 


Disable Interrupts 
DISASLE_INTERRUPTS 
DISK T7209 774 
Dispatch 6°9 
DISPATCH 679 
Display 6°25 
DISPLAY 6-25 
DISPOSITION 7-17 


DMS se aie 
DOMSDICTIONARY 7-6 
DQ 4-7 

D0 STATEMENT 4-7 
DONTBACKUP 2 


DGONTPRINI 7 
DONTREPORT 
DOUBLE 7-14 
DOWNTO 4-9 
DUMMY 3°15 
Dumo 6°25 
DUMP 6225 


4 
DONTCARE T-2 
id 


Dynamic Memory 8ase 


13-1 


6°25 
S729 


o*9 


DYNAMIC_MEMORY 9-2 


DYNAMIC MEMORY_SASE 


Escorc 7-3 
ESCDICLASEL 7=5 
EITHER i=2 


ELSE hehe &nmSp 4n 


Enable Interrupts 
ENAGLO_INTERRUPTS 


END 3-295 4°72 LOW1» 
END CASE hahep 4°5 


6°9 


tO» 5°12» 


6=Z5 
6-25 


EOF T7713, 77145 7=15 


EQS 4-11 
E0S_CYCLE 4-11 
Error Communicate 
ERROR_COMUNICATE 
ERRORLIMIT 9-2 
ERRORLIST 9-2 
EVEN 776 


EXCEPTION T-lis 7-125 7713» 7714 


6°25 
6-26 
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373 


7-16» 


132 
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EXOR 5-2 

Expression 5-1 
EXPRESSIONS 571i 

EXTEND 716% 7717 
Extended Arithmetics 6-21 
EXTERNAL 3-20 

EXTMODE 7*3e 7-16» 7-17 


FALSE 3-7» 3717 

FAMILY G=2 

FAMILYINDEX 7-30 7-16» 7-17 
FAMILYNAME 7-10» 7-17 
Fetch 6°25 

FETCH 6°26 

Fetch Communicate Message Pointer 
FETCH_COMMUNICATcC_MSG_PTR 6°9 
Field List 3°14 

Fietd Setector 5-8 

FILE 7=1 

File Attributes f-2 

FILE ATTRIBUTES 16712 
FILE DECLARATION 3749 771 
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